Question

我正在为计算机科学课做作业，我遇到了麻烦。我知道社区不反对给家庭作业项目提供明确的答案，这不是我在这里的真正目的;我希望能够走上正轨或思考过程。我会尝试提供尽可能多的信息，以便让您了解我正在处理的内容以及我是如何被阻止的。

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

不能使用任何循环功能;相反，必须使用递归
只能使用以下固有功能 setq ，缺点，追加，列表，相等， defun ，汽车， cdr 和 cond
可以创建可以用来在函数条件中创建额外步骤的“帮助函数”（有点像嵌套的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

从lisp中的列表中删除元素

1 个答案: