Discussion :

[max34nsr34]

Bonjour à tous,

je suis débutant en prolog et je galère sur un truc qui n'est surement pas dur...
Je souhaite récuperer l'indice d'un élément d'une liste.

Par exemple : L = [haut,gauche,droite,bas].
Et donc faire quelque chose qui me renverrai 2 si j'y passe droite en parametre..

Alors j'ai essayé quelque chose mais ça ne marche pas.. :

Code :

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

1
2
3
4
testA(T,[T|_], Compt).
testA(T,[K|L], Compt):-  Compt1 is Compt+1, testA(T, L, Compt1).
 
testAB(T,X,R):-testA(T, [nord,est,sud,ouest], X), nth0(X, [nord,est,sud,ouest], R).

testA est mon algo recursif qui incrémente un compteur jusqu'a tomber sur le bon élément et donc on l'apelle avec testAB et j'utilise le resultat du compteur "X" pour la suite. Seulement X ne garde pas sa valeur une fois sortie de testA... testA me renvoit juste true ou false..

Si quelqu'un pouvait m'expliquer ce que j'ai mal fait..
Merci par avance

Max

[Trap D]

C'est un parcours classique de liste, deux méthodes, une avec accumalteur qui compte le rang pas à pas et qui s'arrête quand l'élément est trouvé, et qui unifie la valeur de retour avec l'accumulateur. Cet accumulateur est initialisé à 0 au début de la recherche.
L'autre méthode consite à construire le resultat en sortie de récursion : tant que tu n'as pas trouvé l'élément, tu parcours la liste.
Qund tu as trouvé l'élément tu initialises la valeur de retour à 0, et en dépilant les appels de la récursion tu augment à chaque fois de 1 la valeur de retour.

exemple avec le calcul de la longueur d'une liste.
méthode 1 avec accumulateur

Code :

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

1
2
3
4
5
my_len1([], Len, Len).
 
my_len1([_H| T], LE, LF) :-
  L1 is LE + 1,
  my_len1(T, L1, LF).

méthode 2 sans accumulateur

Code :

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

1
2
3
4
5
my_len2([], 0).
 
my_len2([_H | T], L) :-
  my_len2(T, L1),
  L is L1 + 1.

[max34nsr34]

merci beaucoup "Trap D", je vais essayer ça et je te dis

Max

[max34nsr34]

C'est bon ça marche niquel

Merci beaucoup

[Trap D]

Tu as pensé au tests d'erreur e.g. l'élément recherché n'est pas dans la liste ?
Si c'est bon, pense au tag

[max34nsr34]

Pour le test d'erreur, je vais utiliser "memberchk" pour voir si l'élément est bien dans la liste.

Je vais mettre en résolu

Merci encore, bye

Max

[Trap D]

Oui mais ça fait deux parcours de liste au lieu d'un, tu devrais plutôt utiliser le résultat de la recherche, ce serait plus efficace.

[max34nsr34]

mmh oui très juste..
Je vais suivre ton conseil .
Merci

[rextherunt]

méthode 2 sans accumulateur

Code :

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

1
2
3
4
5
my_len2([], 0).
 
my_len2([_H | T], L) :-
  my_len2(T, L1),
  L is L1 + 1.

Question de débutant : Pourquoi L n'est pas positionné dans la récursion ?

[Trap D]

L est calculé en sortie de récursion.

Je te laisse faire le test avec la liste [1,2,3] par exemple.
Fais la trace à la main.