小编bra*_*ont的帖子

我正在为计算机科学课做作业，但遇到了一个障碍。我知道社区反对对家庭作业项目给出明确的答案，而这并不是我来这里的真正目的；我希望被置于正确的轨道或思考过程中。我会尽量提供尽可能多的信息，以便让您了解我在处理什么以及我是如何被阻止的。

首先，这是对 LISP 语言的快速“介绍”。本课程将带我们学习几种不同类型的语言，让我们深入了解编程的不同方面及其发展历史。因此，项目规则如下：

• 不能使用任何循环函数；相反，必须使用递归
• 只能使用以下固有函数setq、cons、append、list、equal、defun、car、cdr和cond
• 可以创建“帮助函数”，可用于在函数的条件中创建额外的步骤（有点像嵌套的条件）

我遇到问题的部分是我应该创建一个函数，该函数将列表作为参数，扫描该列表是否有重复项，并删除重复项，返回列表。因此，如果我传递了一个 '(abcbadea) 列表，它将返回 (abcde)。

到目前为止，我认为最好创建一个名为list_member的函数，该函数将元素与列表进行比较，如果元素在列表中则返回 T，如果不在列表中则返回 nil。

(defun list_member (x L)
  (cond ((null L) nil)             ;if list L is empty, return NIL
    ((equal x (car L)) T)          ;if element x is in L, return T
    (T (list_member x (cdr L)))))  ;else, recursively check remainder of L

我想在函数 rem_dup 中使用它，我已经开始在下面填写它：

(defun rem_dup (L) …