Bonjour,

j'ai un petit soucis pour la mise en pratique de condition de maniere recursive.
J'ai le systeme de base à savoir :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
(cond
  (condition A resultat A)
  (condition B resultat B) 
     etc...
  (resultat Z si aucune condition ok)
Afin de mettre ce truc en 'pratique' je me suis dit que j'allais faire une sorte de fonction qui me donnerait l'emplacement des A dans une liste (je debute ).
J'ai donc fait un truc de ce genre :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
 
(defun trouveA (lis)
 (cond
  ((atom lis) 0)
  ((equal (car lis) 'A) (+ 1 (trouveA (cdr liste))) )
  ((trouveA (cdr liste)))
 )
)
Et la ca marche pas j'ai bien 0 si A absent de lis et 1 si present mais j'ai pas sa place dans la liste

Quelqu'un pourrait m'aiguiller ?
Merci