Esercizio Prolog

Esercizio2.pl

byCar(auckland,hamilton).
byCar(hamilton,raglan).
byCar(valmont,saarbruecken).
byCar(valmont,metz).

byTrain(metz,frankfurt).
byTrain(saarbruecken,frankfurt).
byTrain(metz,paris).
byTrain(saarbruecken,paris).

byPlane(frankfurt,bangkok).
byPlane(frankfurt,singapore).
byPlane(paris,losAngeles).
byPlane(bangkok,auckland).
byPlane(losAngeles,auckland).

diretto(From,To) :-
	byCar(From,To).
	
diretto(From,To) :-
	byTrain(From,To).
	
diretto(From,To) :-
	byPlane(From,To).

travel(From,To,Percorso) :- 
	diretto(From,To), 
	Percorso = go(From,To) , !.

travel(From,To,Percorso) :-
	diretto(From,Intermedio),
	travel(Intermedio,To, CurPercorso),
	Percorso = go(From,Intermedio,CurPercorso), !.