从Common Lisp中的列表中删除元素？

作者: 不想吃东西
发布时间: 2024-08-20 07:29:36 (18天前)
转自：

3 条回复

0#
回复此人
一生流水 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 你有三个案例 <code> car </code> 现在。从当前单元格的角度来看它： </p> <UL> <LI> 该 <code> car </code> 目前的细胞是 <code> nil </code> </LI> <LI> 该 <code> car </code> 当前单元格是一个原子（而不是null） </LI> <LI> 该 <code> car </code> 当前单元格是一个列表 </LI> </UL> <P> 关于 <code> cdr </code> ，假设嵌套的正确列表，它将始终是一个cons单元格或 <code> nil </code> 。 </p> <P> 你需要对两者进行递归 <code> car </code> 和 <code> cdr </code> 什么时候他们是conses。 </p> <P> 关于命名：Lisp阅读器的标准行为是提升所有内容，因此您显示的名称实际上是 <code> REMOVENILTOP </code> 和 <code> REMOVEALL </code> 。惯例是编写小写名称，其中部分用短划线分隔： <code> remove-nil-top </code> ， <code> remove-all </code> 。我喜欢这些名字 <code> remove-nil </code> 和 <code> tree-remove-nil </code> 顺便说一句，更好 </p> </DIV>

编辑
1#
回复此人
苞米地里的蒙面妖 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <pre> <code> (defun removeAll (l) (cond ((null l) NIL) ((null (car l)) (removeAll(cdr l))) ((atom (car l)) (cons (car l) (removeAll (cdr l)))) (T (cons (removeAll (car l)) (removeAll (cdr l)))))) </code> </pre> <P> 你忘了在最后一个克劳斯关闭第一个 <code> removeAll </code> 上 <code> (car l) </code> 用一个paranthesis。 </p> <P> 您可以使用支持paranthesis自动填充的编辑器来避免此类错误。并自动缩进代码。你用什么编辑器？ </p> </DIV>

编辑

登录后才能参与评论