kyle/sandbox
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Finish ch03 exercises.

Browse Source
This commit is contained in:
Kyle Isom
2018-01-18 10:29:30 -08:00
parent 311a24961c
commit 50dbc5f0c0
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
lpn/ch03/travel.pl
View File

@@ -57,3 +57,26 @@ travel(X, Y) :- travel(X, Z),
%% go(metz,paris,
%% go(paris,losAngeles)))
%% to the query travel(valmont,losAngeles,X).
%% First, we need set up the terminal scenario:
%% travel(X, Y, go(travelDirect(X, Y))) :- travelDirect(X, Y).
%% Next, we recurse.
%% travel(X, Y, go(travelDirect(X, Z), W)) :-
%% travelDirect(X, Z),
%% travel(Z, Y, W).
%% The next exercise says we should modify this to include the
%% mechanism of transport. This is more tedious, but doable.
travel(X, Y, go(byCar(X, Y))) :- byCar(X, Y).
travel(X, Y, go(byCar(X, Z), W)) :-
byCar(X, Z),
travel(Z, Y, W).
travel(X, Y, go(byPlane(X, Y))) :- byPlane(X, Y).
travel(X, Y, go(byPlane(X, Z), W)) :-
byPlane(X, Z),
travel(Z, Y, W).
travel(X, Y, go(byTrain(X, Y))) :- byTrain(X, Y).
travel(X, Y, go(byTrain(X, Z), W)) :-
byTrain(X, Z),
travel(Z, Y, W).