从非线性列表中删除项目的出现

Question

我正在尝试从列表的任何级别删除列表中所有出现的元素。 我需要使用地图功能。我正在使用 Common Lisp。例如，我希望能够做到：

(fdelete '(1 2 3 4 (3)) 3) => (1 2 4)

到目前为止我已经尝试过： 这个函数会做一些需要的事情。它将用 NIL 替换给定元素的所有出现，所以这不是我想要的。

(defun fdelete (l e)
    (cond
        ((null l) 0)
        ((equal l e) nil)
        ((atom l) l)
        (t (mapcar (lambda(l) (fdelete l e )) l ))
    )
)

这样就可以了

(fdelete '(1 2 3 4 (3)) 3) => (1 2 NIL 4 (NIL)) 

我的第二次尝试是使用 mapcap 函数，因为它不会返回与输入列表大小相同的列表。 这将完成所需的操作，但它会“破坏”我的初始列表，例如，它将所有子列表“浮出水面”。

(defun fdelete (l e)
    (cond
        ((null l) 0)
        ((equal l e) nil)
        ((atom l) (list l))
        (t(mapcan(lambda(x) (fdelete x e ))l ))
    )
)

所以这确实是(fdelete '(1 2 3 4 (3)) 3) => (1 2 4) 但如果我试试这个，它也会做错：

(fdelete '(1 2 3 (4) (3)) 3)) => (1 2 4)

我希望它这样做(fdelete '(1 2 3 (4) (3)) 3)) => (1 2 (4))

我希望我的问题结构良好且足够详细，并且我正在提供工作示例。有人能给我一些关于如何解决这个问题的提示吗？

Answer 1

使用mapcan 是正确的选择，因为您可以使用list 来获取值或使用nil 来移除项目。对于列表元素，如果它与要删除的内容不匹配，则应检查递归结果，如果它不是空列表，则将其包装。

解决方案类似于：

(defun remove-deep (item list)
  (mapcan (lambda (cur)
            (cond ((equal item cur) '()) 
                  ...))
          list))

(remove-deep 3 '(1 nil 2 3 (3) (3 4)))
; ==> (1 nil 2 (4))

为了应用principle of least surprise，我重命名了函数，因为delete 是remove 的破坏性版本。我还保留了standard functions 的参数顺序：