lisp - 作业 : Lisp items that appear more than once in a list

Question

给定一个列表，我试图返回一个新列表，该列表仅包含在我作为参数收到的第一个列表中多次出现的项目。

我做了以下事情:

(defun myf (lista)
  (if (endp lista)
      nil
      (if (member (first lista) (rest lista))
          (append (list (first lista)) (myf (rest lista)))
          (myf (rest lista))))) 

如果我运行以下命令:(myf '(A A B A B C))，它会返回 (A A B)。我怎样才能让它只返回一次项目(即，没有双“A”)？

Answer 1

一旦发现某个字母不止一次出现在列表中，就不需要再次检查它，因此列表的其余部分也不需要它。所以你可以修改剩余的列表...

注意:这个答案故意有些含糊，因为它是针对家庭作业和所有内容的。 :)