Fonction LISP pour supprimer nils

Question

Je veux écrire une fonction dans LISP qui supprimera complètement tous les NILS dans une liste. La liste peut être imbriquée, ce qui signifie qu'elle peut contenir d'autres listes à l'intérieur. Par exemple, la liste '((état L L L L) NIL (état L L R L) NIL) doit être transformée en' ((ÉTAT L L L L) (ÉTAT L L R L)).

Answer 1

(defun remove-nil-recursively (x) 
    (if (listp x) 
    (mapcar #'remove-nil-recursively 
      (remove nil x)) 
    x)) 

Works pour votre exemple:

[1]> (remove-nil-recursively '((state L L L L) NIL (state L L R L) NIL)) 
((STATE L L L L) (STATE L L R L)) 

Et avec des listes imbriquées:

[2]> (remove-nil-recursively '(NIL (state L L nil R L) NIL)) 
((STATE L L R L)) 

Mais attention:

[3]> (remove-nil-recursively '(NIL (state L L (nil) R L) NIL)) 
((STATE L L NIL R L)) 

Answer 2

Une fonction générique dans le style de remove-if :

(defun remove-all (predic seq &optional res) 
    (if (null seq) 
     (reverse res) 
     (cond ((and (not (null (car seq))) (listp (car seq))) 
      (remove-all predic (cdr seq) 
         (cons (remove-all predic (car seq)) res))) 
      ((funcall predic (car seq)) 
      (remove-all predic (cdr seq) res)) 
      (t (remove-all predic (cdr seq) (cons (car seq) res)))))) 

Exemples:

> (remove-all #'null (list 1 2 'nil 3)) 
=> (1 2 3) 
> (remove-all #'null (list 1 2 'nil '(4 5 nil 6) 3)) 
=> (1 2 (4 5 6) 3) 
> (remove-all #'(lambda (x) (oddp x)) '(1 2 (3 4) 5 6 (7 8 (9 10)))) 
=> (2 (4) 6 (8 (10))) 

Answer 3

Paul Graham appelle cette fonction (récurrente dans les sous-listes remove-si) "pruneau" dans On Lisp, p. 49. C'est l'une des fonctions d'utilité.

(defun prune (test tree) 
    (labels ((rec (tree acc) 
       (cond 
       ((null tree) (nreverse acc)) 
       ((consp (car tree)) 
       (rec (cdr tree) 
        (cons (rec (car tree) nil) acc))) 
       (t (rec (cdr tree) 
         (if (funcall test (car tree)) 
          acc 
         (cons (car tree) acc))))))) 
    (rec tree nil))) 

(prune #'evenp '(1 2 (3 (4 5) 6) 7 8 (9))) 
(1 (3 (5)) 7 (9)) 

Answer 4

(defun remove-if-nil (list) (remove-if-not 'identity list)) 

remove-si-ne prend un prédicat et une liste, et supprime tous les éléments de la liste qui ne satisfont pas le prédicat, à savoir que nul de retour lors de l'évaluation dans le prédicat. l'identité, comme vous pouvez le deviner, renvoie exactement la même chose que cela, donc (remove-if-not 'liste d'identité) supprime tous les éléments de la liste qui est nulle.