比较列表

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

我的版本：

[编程交流] 比较列表