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

【问题标题】：(SETF L (FLATTEN L)) should be a lambda expression error(SETF L (FLATTEN L)) 应该是 lambda 表达式错误
【发布时间】：2021-06-01 08:01:44
【问题描述】：

所以我正在尝试编写一个普通的 lisp 函数，它使用一个预定义的函数函数 flatten（我已经测试过所有的）并返回一个没有重复的扁平列表。但是我不断收到此错误： %EXPAND-FORM: (SETF L (FLATTEN L)) should be a lambda expression 我不知道如何解决它。

(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)))))))

【问题讨论】：

标签： lambda lisp common-lisp

【解决方案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 之外计算它，并将其绑定到某个变量。结果列表具有相同数量的元素，或者 less。在该列表上调用member 可能会更有效一些，因为它可能更短。

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

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

【讨论】：