Zbirka zadataka iz Ekspertskih sistema

80 1. Pretraživanje
pomeri(N,S1,S2,S3) :-
N1 = N-1,
pomeri(N1,S1,S3,S2),
ispisi(S1,S3),
pomeri(N1,S2,S1,S3).
ispisi(Lok1,Lok2)
Lok2).
goal
hanoi(3).
:- write(„\n Pomeri disk sa „,Lok1,“ na „,
Program po izvršavanju ispisuje sledeći niz poteza:
Pomeri disk sa jedan na tri
Pomeri disk sa jedan na dva
Pomeri disk sa tri na dva
Pomeri disk sa jedan na tri
Pomeri disk sa dva na jedan
Pomeri disk sa dva na tri
Pomeri disk sa jedan na tri
Zadatak 32: Prolaženje kroz lavirint
Sastaviti program na Prolog-u za pronalaženje svih puteva kroz zadati lavirint (slika 68) od
tačke a do tačke h.
b
a c
d
e
f
Slika 68
g h
Rešenje
Graf pretrage može se u programu (napisanom na VAX Prologu) predstaviti korišćenjem
predikata p(A,B):
/* p(A,B) je tačno ako postoji prolaz iz sobe A u sobu B */
p(a,c). p(c,g). p(b,f). p(f,g).
p(c,a). p(g,c). p(f,b). p(g,f).