5

私はこれを自分で行う方法を見つけることができましたが、これを行うためのより簡単な、おそらく組み込みの方法があると感じています。2つのリストが要素を共有しているかどうかを確認したいと思います。これらは私が現在扱っている2つのリストです：

((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ますか？

4

1 に答える 1

8

交差点はどうですか？

(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))
于 2010-11-25T03:33:42.403 に答える