Bonjour, voici un programme qui fonctionne parfaitement :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
(set 'pocket'($ $ $ $ $ $ $ $ $ $))
(loop (cond ((not pocket) (return pocket))) (pop pocket))
Je suis cence reecrire ce meme code mais avec la fonction cons. J'ai donc fait ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
(set 'pocket'($ $ $ $ $ $ $ $ $ $))
(eval
   (cons
      (quote loop)
      (cons
         (quote cond)
            (cons (cons 'not (cons pocket nil))(cons (cons'return (cons pocket nil)) nil))
	  nil)
	  (cons 'pop (cons pocket nil))
	nil))
Ce code contient une erreur qui est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
*** - EVAL: too many arguments given to CONS:
sauf que je n'arrive pas vraiment a resoudre cette erreur.
Si quelqu'un aurait l’amabilité de m'aider ?
Je préviens, je débute entièrement en Clisp :$