Сравнение списков в Lisp

Я мог бы придумать какой-то способ сделать это сам, но у меня есть ощущение, что есть более простой, возможно, встроенный способ сделать это. Я хочу посмотреть, имеют ли какие-либо два списка общий элемент. Это два списка, которые я ' m имеет дело в данный момент:

((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 s?

5
задан Jason Swett 25 November 2010 в 03:17
поделиться