[CLisp] - Fonction Aplatir

Voici la fonction Aplatir qui transforme les sous-listes en liste :

Code:

---

1 2 3 4 5 6

(defun aplatir (liste) (cond ((null lst) lst) ((listp (car lst)) (append (aplatir (car lst)) (aplatir (cdr lst)))) ((consp (car lst)) (append (aplatir (car lst)) (aplatir (cdr lst)))) (T (cons (car lst) (aplatir (cdr lst))))))

---

Elle fonction a merveille du moment que la sous-liste n'est pas circulaire :

Code:

---

1 2 3 4 5

(aplatir '(a (b (c) (d)) (e f) (g (h)) nil)) (a b c d e f g h)   (aplatir '(a b (d . c))) *** - car: c is not a list

---

Quelqu'un pourrait m'aider a corriger cette erreur ? Merci :mouarf:

Nobody willing to help a lady ? :calim2: :lol:

Quel est donc ton algorithme? A ce que je vois, ta fonction n'est pas désignée qu'à travailler avec des listes, c'est-à-dire, avec des cellules cons et nil. En effet, d'abord tu vérifies si LISTE est NIL. Si ce n'est pas le cas, tu vérifies si c'est une liste. Les deux dernières clauses ont peu de sens. En effet, si LISTE ne satisfait pas la condition (LISTP LISTE), elle ne satisfait pas la condition (CONSP LISTE) a fortiori. C'est évident que la clause par défaut n'est atteinte que si LISTE n'est pas une liste, mais alors l'application de CAR et de CDR à LISTE doit produire erreurs.

Je pense, il vaut la peine que tu formules l'algorithme précisément, par exemple, en français.

D'accord avec ce que dit byjav sur la redondance du test consp après listp.
En revanche il te manque un test: (atom lst)

Code:

---

1 2 3 4 5 6 7

(defun flt (lst) (cond ((null lst) nil) ((atom lst) (list lst)) ((listp (car lst)) (append (flt (car lst)) (flt (cdr lst)))) (T (cons (car lst) (flt (cdr lst))))))

---

Bonjour,

Citation:

---

Envoyé par Bolboaa

Voici la fonction Aplatir qui transforme les sous-listes en liste :

Code:

---

1 2 3 4 5

(aplatir '(a (b (c) (d)) (e f) (g (h)) nil)) (a b c d e f g h)   (aplatir '(a b (d . c))) *** - car: c is not a list

---

Quelqu'un pourrait m'aider a corriger cette erreur ? Merci :mouarf:

---

Donc si je comprend bien les exemples, tu souhaites une version qui ne supprimerai pas les valeurs nil, et qui supporterai les paires ou listes pointées

Code:

---

1 2 3 4 5 6 7 8

(defun aplatir (l) (if l (cond ((atom l) (list l)) ((atom (car l)) (cons (car l) (aplatir (cdr l)))) (T (append (aplatir (car l)) (aplatir (cdr l)))) ) ) )

---

Code:

---

(aplatir '(1 2 nil (2 4 nil) 3 . 4)) => (1 2 nil 2 4 nil 3 4)

---

A+