lisp - 结果 Lisp 中没有 nil 的列表

Question

我必须从所有级别删除列表中出现的所有元素。我的代码是:

(defun sterge(e l)
   (cond
    ((and (atom l) (equal e l)) nil)
    ((atom l) (list l))
    (t (append (apply #'list (mapcar #' (lambda (l) (sterge e l)) l))))
  )
)
(defun sterg(e l)
  (car (sterge e l))
)

当我给予时:

(sterg 1 '(1 2 1 ( 1 2 1( 1 (1) (1)) (1) 3) (1)(2)))

它显示了输出:

 ((2 (2 (NIL NIL) NIL 3) NIL (2)))

如何删除那个nil？？谢谢。

Answer 1

不是返回 nil，而是考虑返回应用于实体 l 其余部分的 sterge。 mapcar 不是解决这个问题的最佳方法；递归函数更好(当然，除非赋值指定使用 mapcar。)

提示:将 l 视为列表并测试 (car l)，例如 (atom (car l)) , 将 sterge 应用于 (cdr l)。