list - 从 lisp 中的列表中删除一个元素

Question

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

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

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

我遇到问题的部分是我应该创建一个函数，该函数将列表作为参数，扫描该列表以查找重复项，然后删除重复项，然后返回列表。因此，如果我传递了一个 '(a b c b a d e a) 列表，它将返回 (a b c d e)。

到目前为止，我认为最好创建一个名为 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)
   (cond ((null L) nil)                     ;if list L is empty, return NIL to user
     (( list_member (car L) cdr L )) (...)  ;part I am having trouble with
     (T (rem_dup (cdr L)))))                ;else, check rest of list recursively

我的问题是，使用可用的函数，我似乎无法弄清楚如何将列表放在一起并删除重复项。当 list_member 返回 true 时，我基本上不知道从哪里开始做什么。保持列表格式的唯一函数是 APPEND，因为我处理的是单个元素(在这种情况下，即使嵌套列表也被视为一个元素)。我可以使用的所有列表连接函数(APPEND、CONS、LIST)都是非破坏性的。

我想出了很多解决方案，但返回的列表与我想要的相去甚远。我认为在这里列出它们可能会造成混淆。我在问自己正确的问题时遇到了瓶颈，所以我想我应该把它发给每个人，看看他们是否能提出一个我还没有想到的问题来问。

我很欣赏你的见解。

Answer 1

你的案例倒退了。如果第一个元素在列表的其余部分中，则它是重复的，因此您想忽略它。否则，您希望返回一个包含第一个元素的列表，该列表位于其余元素的 rem_dup 前面。

(defun rem_dup (L)
   (cond ((null L) nil)                         ; if list L is empty, return NIL to user
         ((list_member (car L) (cdr L )) (rem_dup (cdr L))) ; Skip duplicate element
         (T (cons (car L) (rem_dup (cdr L)))))) ; else include it, and check rest of list recursively