list - lisp 中列表元素的两个元素组合(没有重复项)

Question

从 lisp 中的任何给定列表中，我想获得该列表元素的两个元素组合而没有重复组合(意思是 (a b) = (b a) 并且应该删除一个)

例如，如果我有一个列表是 (a b c d)，

我想得到 ((a b) (a c) (a d) (b c) (b d) (c d))

Answer 1

(defun combinations (list)
  (loop for (a1 . r1) on list
        nconc (loop for a2 in r1 collect (list a1 a2))))


CL-USER 172 > (combinations '(a b c d))
((A B) (A C) (A D) (B C) (B D) (C D))