Discussion :

[Superleo2999]

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))
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 ...

[Trap D]

Salut

Essaye ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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 :

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

[Superleo2999]

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

[Trap D]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

(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 :

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))

[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) .

[heero]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

(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.