檢查列表是否包含至少一個非零元素

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)) 

但這並不能幫助你瞭解遞歸。