Discussion :

[FIR3FL4M3]

Salut, J'aimerais avoir un avis pur bien résoudre cette problème.

J'ai besoin de créer en prolog un algorithme pour trouver la sortie du labyrinthe qui est joint.

Je dois fournir la entre et la sortie et après le programme va montrer le chemin pour sortir avec toutes les pièces qu'il faut traverser dans l'ordre pour arriver de l'entrée à la sortie.

Je crois que je dois prend comme fait toutes les liaisons
ex:porte(a,d).
porte(d,e).
porte(e,f).
porte(e,h).
porte(e,g).
porte(h,c).
porte(g,i).
porte(i,b).

porte(d,a).
porte(e,d).
porte(f,e).
porte(h,e).
porte(g,e).
porte(c,h).
porte(i,g).
porte(b,i).

j'aimerais savoir quel est l'étape suivante.

Merci d'avance.

[FIR3FL4M3]

Je met comme dans l'exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
% REGLES
 
relie(X,Y):-porte(X,Y).
relie(X,Y):-porte(Y,X).
 
sortie(Depart,Arrive,Visite,[Depart,Arrive]):-relie(Depart,Arrive),not(membre(Arrive,Visite)).
sortie(Depart,Arrive,Visite,[Depart|R]):-relie(Depart,C),not(membre(C,Visite)),sortie(C,Arrive,[Depart|Visite],R).
 
J'ai utilisé des bases d'autre programme pour savoir le chemin parcourir dans un vol entre 2 villes.
Mais Le programme me donné ça comme réponse.
2 ?- sortie(a,b,[a],L).
ERROR: not/1: Undefined procedure: membre/2

Merci d'avance.

[FIR3FL4M3]

Ok J'ai réussi le problème c'était que j'ai oublié de définir la règle <membre>.

membre(X,[X|_]).
membre(X,[_|R]):-membre(X,R).

Maintenant il functione, Merci a tous.

Je met comme dans l'exemple.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
% REGLES
 
relie(X,Y):-porte(X,Y).
relie(X,Y):-porte(Y,X).
 
sortie(Depart,Arrive,Visite,[Depart,Arrive]):-relie(Depart,Arrive),not(membre(Arrive,Visite)).
sortie(Depart,Arrive,Visite,[Depart|R]):-relie(Depart,C),not(membre(C,Visite)),sortie(C,Arrive,[Depart|Visite],R).
 
J'ai utilisé des bases d'autre programme pour savoir le chemin parcourir dans un vol entre 2 villes.
Mais Le programme me donné ça comme réponse.
2 ?- sortie(a,b,[a],L).
ERROR: not/1: Undefined procedure: membre/2

Merci d'avance.