[Lisp][IA] Supprimer une liste d'une liste de listes

Bonjour,
Ca va faire 4h que j'essaie de deleter une liste, d'une liste de listes.

Explications :

- J'arrive à faire ceci :
(setq a '(1 2 3 4))
(delete '2 4)
--> (1 3 4)


- par contre je n'arrive pas à réaliser ceci :

(setq a '((1 2 3 4) (5 5 5 7) (45 P U)) )
(delete '(5 5 5 7) a)
--> ((1 2 3 4) (5 5 5 7) (45 P U))
:arrow: ne delete pas la liste (5 5 5 7) contenue dans a....

Si quelqu'un s'y connaissant en Lisp pouvait m'éclairer sur ce point, ça me ferait bien avancer pour mon systeme expert ... :roll:

Salut

Essaye ça :

Code:

---

1 2 3 4

(defun my_delete (x y) (if (equal x (car y)) (cdr y) (cons (car y) (my_delete x (cdr y)))))

---

Sortie 1:

Citation:

---

CG-USER(7 ): (setq a '((1 2 3 4) (5 5 5 7) (45 P U)) )
((1 2 3 4) (5 5 5 7) (45 P U))
CG-USER(8 ): (my_delete '(5 5 5 7) a)
((1 2 3 4) (45 P U))

---

Sortie 2 :

Citation:

---

(setq a '(1 2 3 4))
(1 2 3 4)
CG-USER(12): (my_delete '1 a)
(2 3 4)

---

Ok j'essaye ça dès que possible (demain surement) je n'ai pas allegro sur ce pc :(

On peut faire une version plus complète qui enlève tous les éléments recherchés et non pas le premier

Code:

---

1 2 3 4 5 6 7 8

(defun my_delete (x y) (if y (if (equal x (car y)) (my_delete x (cdr y)) (cons (car y) (my_delete x (cdr y))) ) ) )

---

Sortie 1:

Citation:

---

(setq a '(1 2 3 4 5 1 2))
(1 2 3 4 5 1 2)
CG-USER(3): (my_delete '1 a)
(2 3 4 5 2)
CG-USER(4): (my_delete '2 a)
(1 3 4 5 1)

---

Sortie 2 :

Citation:

---

CG-USER(5): (setq a '((1 2 3 4) (5 5 5 7) (45 P U) (5 5 5 7) ) )
((1 2 3 4) (5 5 5 7) (45 P U) (5 5 5 7))
CG-USER(6): (my_delete '(5 5 5 7) a)
((1 2 3 4) (45 P U))

---

Par défaut, delete enlève tous les éléments possible...
Sinon, utilisez delete-if, avec un prédicat du genre #'lambda(x) (eql x val-a-detruire) .

Citation:

---

Envoyé par Patriarch24

Par défaut, delete enlève tous les éléments possible...
Sinon, utilisez delete-if, avec un prédicat du genre #'lambda(x) (eql x val-a-detruire) .

---

ou encore plus simple :

Code:

---

(delete object liste :test #'equal)

---

Le problème de base est juste que 'delete' n'utilise pas la bonne fonction de comparaison pour les liste. (par default il utilise #'eql)

Heero.