我是 LISP 的初学者,我有一个问题需要你的帮助。
写一个函数 COUNT-NUMBERS 统计列表中数字的个数,如果列表中没有数字则返回“NO NUMBER”
例如,对于列表:(A 2.3 B C 4 5),它返回 3。
我已尝试使用以下代码,但它不起作用。你能帮我弄清楚吗?此外,如果列表中没有数字,我不知道如何返回“NO NUMBER”。
(defun count-numbers (x)
(cond ((null x) 0)
((numberp x) 1)
(t (+(count-numbers (car x))(count-numbers (cdr x))))))
提前致谢
最佳答案
您可以定义一个内部辅助函数来进行计数,并检查结果以决定在主函数中返回什么:
(defun number-counter (lst)
(labels ((do-count (l)
(cond ((null l) 0)
((numberp (car l)) (+ 1 (do-count (cdr l))))
(t (do-count (cdr l))))))
(let ((r (do-count lst)))
(if (= r 0) 'NO-NUMBER r))))
关于lisp - 编写一个函数 COUNT-NUMBERS 来计算列表中数字的数量,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43426935/