(SETF L (FLATTEN L)) 应该是 lambda 表达式错误

Question

所以我试图编写一个通用的 lisp 函数，它接受一个列表，它使用一个预定义的函数函数 flatten （我已经测试过了）并返回一个没有重复的扁平列表。但是我一直收到这个错误：%EXPAND-FORM: (SETF L (FLATTEN L)) 应该是一个 lambda 表达式，我不知道如何修复它。

(defun eliminateDuplicates (L)
  ((setf L (flatten L))
     (cond ((null L) L)
          ((member (car L) (cdr L))
            (eliminateDuplicates (cdr L)))
             (t (cons (car L) (eliminateDuplicates (cdr L)))))))

Answer 1

你有太多的括号：

((setf ... ...) ...)

当表单在正常评估上下文中看起来像这样时（例如，不是绑定）：

(F X)

如果F不是宏，则F应该是函数，可以是命名现有函数的符号，也可以是 lambda 表达式(lambda (y) ...)。这里，F不是 lambda 表达式，因为它是(setf ... ...)。

另请注意，由于您递归调用该函数，因此您将继续调用flatten列表的每个子列表。您可能希望将函数一分为二，一个删除扁平列表上的重复项，另一个调用(flatten L). 例如，您可以将其重写如下（请注意符号是如何用破折号（不是大写字母）分隔的，以及代码的格式）：

(defun eliminate-duplicates (list)
  (when list
    (destructuring-bind (head . rest) list
      (if (member head rest)
          (eliminate-duplicates rest)
          (cons head (eliminate-duplicates rest))))))

(defun flatten-eliminate-duplicates (list)
  (eliminate-duplicates (flatten list)))

另请注意，在 的两个分支中if，您eliminate-duplicates递归地调用该函数。您也可以在 之外计算它if，并将其绑定到某个变量。结果列表具有相同数量的元素或更少。改为调用member该列表可能会更有效，因为它可能更短。

(defun eliminate-duplicates (list)
  (when list
    (let ((rest (eliminate-duplicates (rest list))))
      (if (member head rest) rest (cons head rest)))))

（您也可以使用 ahash-table但也许这超出了您的需求范围）