我在序言中遇到了一些困难,我正在尝试编写一个谓词,它将返回两个城市之间的所有路径,尽管目前它返回它在无限循环中找到的第一条路径。不知道我哪里出错了,但我整天都在试图解决这个问题,但我一无所获。
可以提供的任何帮助将不胜感激。
go:-
repeat,
f([],0,lon,spa,OP,OD),
write(OP),
write(OD),
fail.
city(lon).
city(ath).
city(spa).
city(kol).
path(lon,1,ath).
path(ath,3,spa).
path(spa,2,kol).
path(lon,1,kol).
joined(X,Y,D):-
path(X,D,Y);path(Y,D,X).
f(Ci_Vi,Di,De,De,PaO,Di):-
append([De],Ci_Vi,PaO),
!.
f(Cities_Visited,Distance,Start,Destination,Output_Path,Output_Distance):-
repeat,
city(X),
joined(Start,X,D),
not_member(X,Cities_Visited),
New_Distance is Distance + D,
f([Start|Cities_Visited],New_Distance,X,Destination,Output_Path,Output_Distance).
not_member(X,List):-
member(X,List),
!,
fail.
not_member(X,List).
我在这里期待的输出是 [spa,ath,lon]4 [spa,kol,lon]3。
再一次,任何帮助将不胜感激。
提前谢谢了。