如何在 Lisp 中删除列表中的所有数字-解网

问：

我正在学习 Lisp，并且遇到了一个问题，我必须从列表中删除所有数字，该列表也有嵌套列表。例如：

(REMOVE-NUM '(2 A (3 B) C D))

将输出：

(A (B) C D)

我不被允许使用 、或。我将使用基本的运算符和语句。这是我当前的代码：loopifmapcancond

(defun REMOVE-NUM (L)
  (cond
   ((null L) nil)

   ((numberp (car L)) (REMOVE-NUM (cdr L)))

   (t (cons (car L) (REMOVE-NUM (cdr L))))   
)

我当前的代码可以删除没有嵌套列表的数字原子，但是一旦涉及嵌套列表，它就会列出嵌套列表，而不会实际处理它。我知道这是我递归背后的逻辑问题，但由于某种原因我看不到它。我的直觉是将最后一行更改为：

(t (cons (REMOVE-NUM (car  L) (REMOVE-NUM (cdr L))))

最后一行中的另一个递归调用，但这样做会给出错误，因为它试图获取原子的 car 并将其作为列表传递给我的函数，该函数只能接受列表。我想过也许可以更改基本情况，但我想不出一种方法来做到这一点，因为必须使用 numberp 作为条件。我的递归哪里出了问题/缺少什么？

递归 lisp common-lisp 嵌套列表

我从来没有看到 Python 或 Javascript 作业问题说，“我们不允许使用这个或那个”。为什么 Lisp 会得到那些糟糕的老师？这是一种愤世嫉俗的观点，它说，“在这门课之后，你实际上不会用Lisp做任何事情，所以学习这门语言所提供的一切是没有意义的。只是概念，我们将使用一个受限制的子集。如果可以的话，找另一个班级。

0赞 William Young 10/2/2023

@MartinPůda 提示没有说明任何关于配对的内容。它指定函数将仅接收原子列表和/或包含原子的嵌套列表。cons

0赞 tripleee 10/3/2023

@Kaz 教授可能更希望学生在被允许使用有效隐藏这个实现层的高阶函数之前学习低级列表架构。

答：

2赞 tripleee 10/1/2023 #1

这不是很明显吗？单独的（实际上可以与案例统一）和（然后可以简单地）案例。如果你想要一直递归，你需要接受你的输入不一定是一个列表，否则你需要偷看并确保它是在你递归之前。在测试用例中加入一两个。atomnulllistptcdrlistpcons

（REMOVE-NUM '（2 A （3 B） C （D . 7）（8 .E） F））

如果您不需要处理列表中的单元格，只需cons

(defun REMOVE-NUM (L)
  (cond
   ((atom L) L)
   ((numberp (car L)) (REMOVE-NUM (cdr L)))
   (t (cons (REMOVE-NUM (car L))
            (REMOVE-NUM (cdr L)) ))))

演示：https://ideone.com/evidN7

输入是空列表吗？如果是，只需返回一个空列表。
输入的第一个元素是列表吗？如果是，则将从此子列表中删除数字的结果与从其余输入列表中删除数字的结果相符，并返回结果。
输入的第一个元素是数字吗？如果是，只需从剩余的输入列表中删除数字并返回结果即可。
最后，第一个元素不是列表，也不是数字，因此将第一个元素放在从剩余输入列表中删除数字的结果上。

也就是说：当函数处理输入列表的元素时，它必须能够区分和处理列表元素、数字元素和其他元素。

下面是这个函数的一个实现，但OP最好在阅读上面的内容后先尝试自己编写这个。当然，还有其他方法可以写出来。这种实现似乎不符合 OP 要求，因为它使用而不是，并且不清楚允许使用哪些“基本运算符”。无论如何，使用（例如，，，）编写类似的东西是相对简单的，同时避免它是否有助于 OP 满足需求。ifcondcondatomandlet

(defun remove-numbers (xss)
  (if (null xss) '()
      (let ((x (car xss))
            (remainder (cdr xss)))
        (if (listp x)
            (cons (remove-numbers x) (remove-numbers remainder))
            (if (numberp x)
                (remove-numbers remainder)
                (cons x (remove-numbers remainder)))))))

CL-USER> (remove-numbers '(2 a (3 b) c d))
(A (B) C D)
CL-USER> (remove-numbers '(1 a ((2 3 b c) d 4) 5 6))
(A ((B C) D))

我根本不是列表吗？这是一个错误;
L是空列表吗？如果是，结果是空列表;
L的车是名单吗？如果是，则结果是一个列表，方法是将从 L 的汽车中删除数字的结果与从 L 的 CDR 中删除数字的结果相加得出的列表;
L的车是数字吗？如果是，则结果是从 L 的 CDR 中删除数字的结果;
否则，结果是将 L 的 car 与从 L 的 CDR 中删除数字的结果相融合的结果。

对于第一种情况，“l 不是列表”情况，您可以使用发出错误信号。如果你的导师说你不允许检查函数参数中的错误，就像这样，用强硬的话来对待他们。(error "...")

上一个：为什么 Flutter/Dart List.from（）有效而 .toList（）无效

下一个：如何在深度为 5 的 R 中设置嵌套列表的名称

如何在 Lisp 中删除列表中的所有数字

How to remove all numbers from a list in Lisp

评论

评论

评论