Discussion :

[neophyte007]

Bonjour tout le monde!

Je dois écrire une fonction récursive qui récupère un élément donnée dans une liste.

Code :

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

1
2
(garde 'a '(a a a & a & a $ a a))
(a a a a a a a)

Du coup j'ai écrit:

Code :

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

1
2
3
4
5
(defun garde (x liste)
 (cond
    ((not liste) nil)
    ((equal (car liste) x) (cons x (garde (cdr liste))))
    (t (garde (cdr liste))) ) )

En testant:

Code :

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

1
2
3
4
5
6
[2]> (garde 'a '(a a a & a & a $ a a))
 
*** - EVAL/APPLY: Too few arguments (1 instead of at least 2) given to garde
Rentrées possibles:
ABORT          :R1      Abort main loop
Break 1 [3]>

En testant j'obtiens cela comme réponse. Je ne comprends pas pour quoi on me dit trop peu d'arguments, qu'il en faut 2 alors que j'en déclares bien 2.

Merci pour vos réponses!

[byjav]

Bonjour !

En effet, tu as oublié de fournir x dans les appels intérieurs de garde, où tu écris simplement (garde (cdr liste)).

Du point de vue du style, not est une fonction logique. Pour vérifier si une liste est vide, il vaut mieux employer endp qui existe justement pour cela : http://clhs.lisp.se/Body/f_endp.htm

[neophyte007]

La dernière condition énonce le cas où la liste commencerait par autre chose que x dans ces cas le je regardes simplement le reste de la liste d'où (garde (cdr liste)), je ne comprends pas pourquoi je devrais parler de x et d'ailleurs où le mettre...

[byjav]

Tu définis garde comme une fonction de deux arguments. Donc, tu ne peux pas écrire (garde (cdr liste)), ça doit être (garde x (cdr liste)).

[neophyte007]

Ah oui c'est bon merci j'ai compris!