Discussion :

[djbad]

Voila j'ai un exo à faire
je dois créer Une fonction qui filtre o dans une liste

> (filtre-o '(o o o & o o o $ o o o))
(o o o o o o o o o)


Donc voila comment je m'y prend
la liste est vide donc je dois retourner nil
la liste commence par autre chose donc j'utilise la fonction consp
qui teste si son argument est un cons si c'est ce le cas je regarde la suite de la la sous liste et je regarde si sa valeur est egale à o et je le rajoute à ma nouvelle liste
Sinon si la liste commence par o je rajoute o à ma nouvelle liste

(defun filtre-o (seau)
(setq bassine nil)
(cond
((not seau) (return bassine))
((consp (car seau)) (equal (cadr seau) 'o) (push (pop (cadr seau)) bassine))
((equal (car seau) 'o) (push (pop seau) bassine)) ) )

Merci de me dire si je fais bien

[Zavonen]

Je ne vois pas l'utilité de 'bassine' ni de consp
filtre est une fonction à un argument L (ou seau, comme tu veux).
Si L=( ) retourner NIL (terminaison de la récursivité)
Si car L='0 retourner (cons '0 (filtre (cdr l))) appel récursif décroissant
sinon retourner (filtre (cdr L)) idem

Code lisp :

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

1
2
3
4
(defun filtre (L)
  (if (null L) nil 
      ( if (eq (car L) 'o) (cons 'o (filtre (cdr l)))
	   (filtre (cdr L)))))

[djbad]

Merci pour ta réponse
ca marche que si la liste est simple c'est à dire (o o o o f f o )
mais si la liste est compose de sous liste (o (f o ) (( o & ) o) g o)
Ca marche pas

[Zavonen]

Et dans ce cas tu veux récupérer quoi ?
Ta fonction de filtrage doit elle conserver la structure ou aplatir ?
La question n'est pas claire.
Si tu veux conserver la structure:

Code LISP :

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

1
2
3
4
5
6
7
(defun filtre (E)
  (cond ((null E) nil)
	((and (atom (car E)) (eq (car E ) 'o)) (cons 'o (filtre (cdr E))))
        ((atom (car E)) (filtre (cdr E)))
        (T (cons (filtre (car E)) (filtre (cdr E)))))) 
 
(filtre '(o (f o ) (( o & ) o) g o))

[djbad]

Désolé j'avais mal l'énoncé je ne dois le faire que sur des liste simple
Merci pour ton aide en tous cas