bonjour

je bloque sur un exo est ce que il ya qlq qui pourra m'iader

Généralisez une fonction pour fabriquer une fonction qui trie n'importe quel élément, pas seulement des gouttes d'eau (des o), d'après les spécifications suivantes :
> (garde 'o '(o o o & o o o ! o o $ o o o o))
(o o o o o o o o o o o o)
> (garde 'a '(a a a b a b a d c e a a))
(a a a a a a a)

ce que j'ai pu faire c'est

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
(defun garde (x) ( seau)
(setq  bassine nil)
(loop
(cond
((not seau) (return bassine))
((equal (car seau) 'x) (push (pop seau) bassine))
(( pop seau)) ) ) )
 
mais quand je tapppe
(garde 'o '(o o o & o o o ! o o $ o o o o))
 
*** - EVAL/APPLY: too many arguments given to GARDE
The following restarts are available:
ABORT          :R1      Abort main loop