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
Partager