lisp - 测试列表的所有元素是否彼此不同

Question

我有一个列表列表，想测试所有元素是否彼此不同，即 equal 应该为列表元素的所有组合返回 nil。

例如

(defparameter feld '((1 0 0 5 5 0) 
                     (0 0 0 0 0 0) 
                     (1 1 5 5 0 0) 
                     (0 1 0 1 5 5) 
                     (5 5 1 0 1 0) 
                     (1 0 1 0 5 5)))

我想过使用 reduce 但据我所知它只测试邻居的相等性，就像循环构造一样:

(loop for i below (length feld) 
      for j from 1 
          if (equal (nth i feld) (nth j feld)) return t)

是否有一种使用标准构造的简单方法，我目前没有看到，或者我是否必须创建递归函数？

整个数据结构代表一个“棋盘游戏”，其中每个列表都是棋盘上的一行，内部列表中的每个元素都是这个字段的值。三个数值(0、1 和 5)类似于空、符号 A 和符号 B。有效的板不能有两条相同的线。这就是为什么我想识别它们。

基本上，它就像删除重复项而不删除。与此同时，我在想这样的事情:

(defun duplicates-p (lst)
  (cond ((null lst) '())
        ((member (car lst) (cdr lst)) t)
        (t (duplicates-p (rest lst)))))

Answer 1

像这样:

(defun unique (lsts &aux (h (make-hash-table :test 'equal)))
  (loop :for lst :in lsts
        :never (gethash lst h)
        :do (setf (gethash lst h) t)))