检查列表是否包含至少一个非零元素

Question

标题几乎可以告诉所有事情。

我正在寻找类似

(atleastonenonnil '(nil nil nil nil '(A B C))) 
=> T 

我可以在一个递归的方式做到这一点，但我不能。我应该使用一些内置功能吗？ 我正在使用cLisp

Answer 1

如果您处理列表的第一个元素，那么其余所有内容都可以递归执行。代码是这样的：

(defun at-least-one-nonnil (l) 
    (and (not (nullp l)) 
     (or (car l) 
      (at-least-one-nonnil (cdr l)))))) 

当然在这种简单的情况下，已经有一个内置函数。

(defun at-least-one-nonnil-v2 (l) 
    (some #'identity l)) 

但这并不能帮助你了解递归。