Vérifiez si une liste contient au moins un élément non nul

Question

Le titre indique à peu près tout.

Je recherche quelque chose comme

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

je pouvais le faire d'une manière récursive, mais je ne pouvais pas. Dois-je utiliser une fonction intégrée? J'utilise cLisp

Answer 1

Si vous traitez le premier élément de la liste alors tout le reste peut être fait récursivement. Le code est le suivant:

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

Bien sûr, dans ce cas simple, il existe déjà une fonction intégrée.

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

mais cela ne vous aide pas à connaître la récursivité.