Prolog Exercise 3

% Author: Claudia-Ann Gray 0702011
% Date: 9/28/2010

tourist_attraction('Dunns River Falls').
tourist_attraction('Dolphin Cove').
tourist_attraction('Oasis Craft Market').
tourist_attraction('Seville Land Mark').

hotel('Ridge Mount').
hotel('Breaches San Sous').
hotel('Rio Family Hotel').

go_to('Ridge Mount', 'Dunns River Falls').
go_to('Ridge Mount', 'Seville Land Mark').
go_to('Ridge Mount', 'Oasis Craft Market').

go_to('Breaches San Sous', 'Dunns River Falls').
go_to('Breaches San Sous', 'Dolphin Cove').
go_to('Breaches San Sous', 'Oasis Craft Market').
go_to('Breaches San Sous', 'Seville Land Mark').

go_to('Rio Family Hotel', 'Dolphin Cove').
go_to('Rio Family Hotel', 'Dunns River Falls').
go_to('Rio Family Hotel', 'Oasis Craft Market').

travel_plans(K):-K==michael, go_to(L, M), tourist_attraction(M), nl, write(K),
write(' can make booking at '), write(L), write(' to visit '), write(M), fail.

travel_plans(N):-N==stacy, hotel(O), go_to(O, 'Dolphin Cove'), go_to(O, 'Seville Land Mark'),
nl, write(N), write(' can make booking at '), write(O), write(' to visit Dolphin Cove and the Seville Land Mark.'), fail.

travel_plans(P):-P==johnny, hotel(Q), go_to(Q, 'Dunns River Falls'), go_to(Q, 'Dolphin Cove'),
nl, write(P), write(' can make booking at '), write(Q), write(' to visit Dunns River Falls and Dolphin Cove.'), fail.