lisp - 比较 Lisp 中的列表

Question

我自己可以想出一些方法来做到这一点，但我觉得有一种更简单的方法，也许是内置的方法来做到这一点。我想看看是否有任何两个列表共享一个元素。这些是我目前正在处理的两个列表:

((0 1 2) (3 4 5) (6 7 8) (0 3 6) (1 3 7) (2 4 8) (0 4 8) (2 4 6))

((0 1 7) (0 1 6) (0 1 3) (0 3 7) (0 3 6) (0 6 7) (1 3 7) (1 3 6) (1 6 7) (3 6 7)) 

因为两个列表都包含 (1 3 7)，我想比较列表以返回 T。

有没有比设置几个 DOLIST 更好的方法？

Answer 1

INTERSECTION怎么样？ ？

(defvar a '((0 1 2) (3 4 5) (6 7 8) (0 3 6) (1 3 7) (2 4 8) (0 4 8) (2 4 6)))
=> A
(defvar b '((0 1 7) (0 1 6) (0 1 3) (0 3 7) (0 3 6) (0 6 7) (1 3 7) (1 3 6) (1 6 7) (3 6 7)))
=> B
(intersection a b :test 'equal)
=> ((1 3 7) (0 3 6))