Question sur condition

Bonjour,

j'ai un petit soucis pour la mise en pratique de condition de maniere recursive.
J'ai le systeme de base à savoir :

Code:

---

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:

---

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 :)

Définis bien ton programme, tu veux trouver la position du premier A ou la liste des positions des A de ta liste ?
Ce n'est pas tout à fait la même chose.

As-tu d'abord écrit un pseudo-code en français t'indiquant la marche à suivre et qui fonctionne correctement ?

Merci de ta reponse Trap.
En fait, je veux pas forcemment la liste (pour commencer) des positions de A mais juste la premiere occurence.
Un truc genre : je fournis la liste B C A et il me ressort 2 (commencement à 0).

Ca devrait être en algo :

Code:

---

1 2 3 4 5 6 7 8 9 10

Debut Parcourir liste Tant que element present ajouter 1 si element A trouvé fin du programme fin si fin tant que fin

---

Il y a une recursivité avec ces deux cas :
si A present : sortie avec affichage du rang
si A non present : sortie avec affichage Non present

Le pb c'est que avec ce que j'ai écris plus haut, dés que je tombe sur A, je quitte sans sa position :( Ca fait plus 'test de présence' que position dans la liste.

"Fin du programme" devrait peut-être être remplacé par "retourner position du caractère".
Pense aussi à retourner une valeur lorsqu'il n'y a rien de trouvé.

Maintenant essaie de transformer ton algo en algo récursif, ici il est itératif.

Tu as du t'empatouiller un peu dans tes conditions. Regarde bien ce que le programme fait s'il trouve A, c'est vraiment ce que tu veux?

Je viens de trouver :
En fait je ne prenais pas le bon chemin quand à l'algo utilisé. Celui-ci est plus adéquat :

Code:

---

1 2 3 4 5 6 7 8 9

Debut Si A absent de liste, compteur = nil Sinon Si premier caractere = A, compteur = 0 Sinon compte caracteres jusqu'à ce que A trouvé finSi finSi Fin

---

Ce qui me donne :

Code:

---

1 2 3 4 5 6

(defun trouveA (liste) (cond ((not (member 'A liste)) nil) ((equal (car liste) 'A) 0) ((+ 1 (trouveA (cdr liste)))) ) )

---

Merci à vous deux :)

Ben non, tu n'as pas exploité correctement le concept de liste.
En Lisp une liste est constituée du premier élément et du reste de cette liste. La prog doit s'appuyer sur ce concept.
Ton prog ne doit donc étudier que le premier élément de cette liste, prendre une décision, et suivant cette décision continuer avec le reste de la liste ou pas.

Maitenant quel est le cas d'arrêt général ? Eh bien que cette liste soit vide !

Peut-être auras-tu besoin d'un argument supplémentaire dans ta fonction...