1

私は自分のコードを機能させようとしていますが、どういうわけか問題に行き詰まりました。プロローグするのは非常に初心者です。これは私のコードです。

    dist(valmiera, riga, 107).
%dist(riga, valmiera, 107).
dist(cesis, riga, 70).
dist(valmiera, rujiena,  50).
dist(rujiena, valka, 30).
dist(valmiera, strenci, 200).
dist(strenci, valka, 30).
dist(valmiera, cesis, 40).
dist(liepaja, saldus, 100).
dist(saldus, riga, 200).
dist(liepaja, jelgava, 270).
dist(jelgava, riga, 50).

path(A,B,C,[A,B]):- dist(A,B,C).
path(A,B,D,[A|As]):- dist(A,W,C), path(W,B,E,As), D is C+E.
%, findMin(YList, E), path(A,B,X,E),!.
shortestPath(A,B,X,E):-findall(Y,path(A,B,S,Y),YList), findMin(YList, E), path(A,B,X,E),!.


findMin([],fail).
findMin([H],E):-E=H,!.
findMin([H,V],E):-H<V, E=H,!; V<H, E=V, !; H=:=V, E=H, !.
findMin([H|T],E):-findMin(T,U), H<U, E=H,!;findMin(T,U), U<H, E=U,!;findMin(T,U), U=:=H, E=U,!.

しかし、 findMin() を呼び出すと、このエラーが発生します

キャッチされていない例外: error(type_error(evaluable,'.'/2),(<)/2)

私は本当に立ち往生していて、何をすべきかわかりません。どんな助けでも大歓迎です。

アプリケーションの目的は、shortestPath() を呼び出して最短パスを取得することです。パスは距離 (a、b、距離) にあります。

4

1 に答える 1