CLISP中如何删除嵌套列表元素并保留原有嵌套结构？

在CLISP中，是否存在方法可以删除嵌套列表中的指定元素，同时保持原有嵌套结构完整？

例如，对于列表((1 (2 (3 (3 4 5 (3 (3)))) 3 4) 3 3) 3 (3 3))，删除元素3后预期结果应为((1 (2 ((4 5 (()))) 4)) ())，要求保留原列表的嵌套结构。

我尝试通过三种逻辑实现：

• 若当前元素是原子且等于指定数字，则不添加至结果
• 若当前元素是原子且不等于指定数字，则将其添加至结果
• 若当前元素是列表，则对其应用删除函数（使用mapcar和lambda）

但执行后输出结果为(1 2 4 5 4)，而非预期。我推测问题出在使用append导致括号被移除。

现有实现代码：

(defun delete (no l)
    (cond
        ((and (atom l) (equal no l)) nil)
        ((and (atom l) (not (equal no l)))  (list l))
        (t (apply 'append (mapcar #'(lambda (x) (delete n x)) l)))))

你的推测正确，apply 'append会平铺所有子列表的元素，直接丢失了嵌套层级。另外代码存在变量名错误：递归调用时用了未定义的n，实际参数名是no。

要保留嵌套结构，需调整处理逻辑：

1. 处理原子时，匹配目标则返回nil，否则返回原子本身（无需包裹成列表）
2. 处理列表时，递归处理每个元素，将结果中的nil替换为空列表，确保嵌套结构不丢失

修正后的代码：

(defun delete-nested (target lst)
  (cond
    ((and (atom lst) (equal lst target)) nil)
    ((atom lst) lst)
    (t (mapcar #'(lambda (elem)
                   (let ((result (delete-nested target elem)))
                     (if (null result) '() result)))
               lst))))

逻辑说明 #

• 原子处理：返回nil标记需要删除的元素，返回原原子保留有效元素
• 列表处理：通过mapcar递归遍历每个元素，将递归结果中的nil（表示该位置元素需删除或子列表全被清空）替换为空列表，从而完整保留原有的嵌套层级

测试结果 #

执行(delete-nested 3 '((1 (2 (3 (3 4 5 (3 (3)))) 3 4) 3 3) 3 (3 3)))，输出结果与预期一致：((1 (2 ((4 5 (()))) 4)) ())

内容的提问来源于stack exchange，提问作者xlao1241