Not understanding VL-SOME

prakashreddy · 发表于 2022-7-5 23:30:08

Dear all

Vl-some confused me. Why the variation in below lines...

(setq nlst (list 0 2 pi pi 4))(vl-some '= nlst (cdr nlst))T(vl-some '= (list 1 2 3) (list 2 3))nil(vl-some '= '(1 2 3) '(2 3))nil

Thanks

Tharwat · 发表于 2022-7-5 23:47:11

The is true because the first item from the first list is equal to the first item in the second list so it is T .

This one is nill because each item from the two lists is not equal to each other so it is NIL .

This one is the same like the previous one .

prakashreddy · 发表于 2022-7-5 23:47:52

(vl-some '= (list 0 2 pi pi 4) (list 2 pi pi 4))

T

Please Check the above line

Tharwat · 发表于 2022-7-6 00:02:49

My reply was correct and indicating to the correct one .
The following one is correct due to equal items in the two lists .

copy

(vl-some '= (list 0 2 [color=blue]pi[/color] pi 4) (list 2 pi [color=blue]pi[/color] 4))

Clear ?

Tharwat · 发表于 2022-7-6 00:11:07

Test these to see the differences .

copy

(vl-some '(lambda (j k)           (if (= j k)             (print j)           )         )        (list 0 1 7 10)        (list 1 2 7 10))

copy

(vl-some '(lambda (j k)           (if (= j k)             (print j)           )         )        (list 0 1 2 10)        (list 1 2 3 10))

prakashreddy · 发表于 2022-7-6 00:14:56

yes, now i understood thank you Mr. tharwat.

Tharwat · 发表于 2022-7-6 00:23:23

You're welcome .

Lee Mac · 发表于 2022-7-6 00:37:53

Please Google the question before posting a new thread, existing explanations may be found here:

vl-some function evaluation
vl-some function evaluation

[编程交流] Not understanding VL-SOME

发表回复

精选推荐