Discussion :

[Fung999]

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

[Trap D]

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 ?

[Fung999]

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 :

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

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.

[Trap D]

"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.

[bredelet]

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?

[Fung999]

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

Code :

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

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 :

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

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

[Trap D]

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...