社区 › Auto Lisp › 比较列表

harrison-matt 发表于 2022-7-6 09:22:16

比较列表

全部的
 
我应该如何验证一个列表中的项目没有出现在另一个列表中？
 
谨致问候，
 
马特

Tharwat 发表于 2022-7-6 09:49:30

通过函数*成员*您可以查看。
 

(setq lst1 '(1 2 3 4 5 ))
(setq lst2 '(6 7 8 9 10))
(setq a (not (member 8 lst1 )))

Lee Mac 发表于 2022-7-6 10:05:01

返回两个列表的“交集”的函数示例：
 
及其补码，两个列表的“并集”：
 

(defun LM:ListUnion ( l1 l2 )
( (lambda ( f ) (f (append l1 l2)))
   (lambda ( l ) (if l (cons (car l) (f (vl-remove (car l) (cdr l))))))
)
)

irneb 发表于 2022-7-6 10:37:16

我的版本：
3

查看完整版本: 比较列表