append sous-liste vers liste [Résolu]

[Leon00]

Bonjour à vous,*

j'arrive pas à trouver ce qui manque sur cette fonction !!
j'ai une liste (a b ( c (d) (e) (f))(g) nil) et je voulais mettre cette liste en une seule liste sans les sous-liste , (a b c d e f g nil)
j'ai cette fonction :

Code :

1
2
3
4
5
(defun seul (liste)
  (cond
    ((not liste) nil)
    ((listp (car liste)) (append (car liste) (seul (cdr liste))))
    (t (cons (car liste)(seul (cdr liste))))))

Le problème, ce que quand il y a plusieurs listes imbriquées, la fonction ne s’occupe que d’un seul niveau
(seul '(a b (c (d) (e) (f))(g) nil))
(A B C (D) (E) (F) G) alors j'obtiens ça, au lieu de (A B C D E F G NIL)

[Trap D]

Ce n'est pas testé mais je ferais ceci :

Code :

1
2
3
4
5
6
7
(defun seul (liste)
  (cond
    ((not liste) nil)

    ((listp (car liste)) (append        (seul (car liste))               (seul (cdr liste))))

    (t (cons (car liste)(seul (cdr liste))))))

[Leon00]

Oui tout simplement il teste le chaque car de liste , meme les liste impbriqué
j'ai testé et ça marche a part qu'il prend pas le NIL de la fin !!

Code :

1
2
3
4
5
6
7
(defun seul (liste)
  (cond
    ((not liste) nil)

    ((listp (car liste)) (append (seul (car liste))(seul (cdr liste))))

    (t (cons (car liste)(seul (cdr liste))))))

(seul '(a b (c (d) (e) (f))(g) nil))

(a b c d e f g ) sans le NIL

[Jean-Marc.Bourguet]

NIL c'est une liste vide...