Ce n'est pas testé mais je ferais ceci :
(defun seul (liste)
(cond
((not liste) nil)
((listp (car liste)) (append (seul (car liste)) (seul (cdr liste))))
...
Ce n'est pas testé mais je ferais ceci :
(defun seul (liste)
(cond
((not liste) nil)
((listp (car liste)) (append (seul (car liste)) (seul (cdr liste))))
...
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.