用另一个 Common LISP 替换树中的元素

Question

我正在尝试用另一个元素替换树中的一个元素。到目前为止，我设法替换了原子，但它不会正确添加到列表中

代码：

(defun replacing (tree trl wrl)
  (cond
    ((null tree) nil)
    ((atom tree)
     (cond ((eql tree trl) (list wrl))
           (t (list tree))))
    (t (apply 'nconc (mapcar #'(lambda (x) (replacing x trl wrl))
                             tree)))))

示例：(replacing '(A (B) (C (D) (E))) 'D 'W) -> (A (B) (C (W) (E)))

我得到了什么：(A B C W E)

有什么想法可以改变吗？

Answer 1

在原子的情况下，只需返回原子或其替换。你返回一个列表。

在树的情况下，使用 mapcar 将函数映射到子树上。摆脱NCONC。

Common Lisp 已经以 subst 的名义拥有此功能：

CL-USER 1 > (subst 'W 'D '(A (D) (C (D) (D))))
(A (W) (C (W) (W)))

代码：

(defun replacing (tree trl wrl)
  (cond
   ((null tree) nil)
   ((atom tree)
    (if (eql tree trl) wrl tree))
   (t (mapcar #'(lambda (x)
                  (replacing x trl wrl))
              tree))))