Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How does this programm work?

Status
Not open for further replies.

sunflowerpc

Technical User
Jan 12, 2011
1
GR
Hi, I have a riddle her in Prolog, but I don't know how it works.
Here is the riddle as stated by Einstein :

1.In a street there are five houses, painted five different colours.
2.In each house lives a person of different nationality
3.These five homeowners each drink a different kind of beverage, smoke different brand of cigar and keep a different pet.
The question is : Who owns the fish ?

And there are 15 hints :

1.The Brit lives in a red house.
2.The Swede keeps dogs as pets.
3.The Dane drinks tea.
4.The Green house is next to, and on the left of the White house.
5.The owner of the Green house drinks coffee.
6.The person who smokes Pall Mall rears birds.
7.The owner of the Yellow house smokes Dunhill.
8.The man living in the centre house drinks milk.
9.The Norwegian lives in the first house.
10.The man who smokes Blends lives next to the one who keeps cats.
11.The man who keeps horses lives next to the man who smokes Dunhill.
12.The man who smokes Blue Master drinks beer.
13.The German smokes Prince.
14.The Norwegian lives next to the blue house.
15.The man who smokes Blends has a neighbour who drinks water.

And the solution:
persons(0, []).
persons(N, [(_Men,_Color,_Drink,_Smoke,_Animal)|T]) :- N1 is N-1, persons(N1,T).

person(1, [H|_], H).
person(N, [_|T], R) :- N1 is N-1, person(N1, T, R).

% The Brit lives in a red house
hint1([(brit,red,_, _, _)|_]).
hint1([_|T]) :- hint1(T).

% The Swede keeps dogs as pets
hint2([(swede,_,_,_,dog)|_]).
hint2([_|T]) :- hint2(T).

% The Dane drinks tea
hint3([(dane,_,tea,_,_)|_]).
hint3([_|T]) :- hint3(T).

% The Green house is on the left of the White house
hint4([(_,green,_,_,_),(_,white,_,_,_)|_]).
hint4([_|T]) :- hint4(T).

% The owner of the Green house drinks coffee.
hint5([(_,green,coffee,_,_)|_]).
hint5([_|T]) :- hint5(T).

% The person who smokes Pall Mall rears birds
hint6([(_,_,_,pallmall,bird)|_]).
hint6([_|T]) :- hint6(T).

% The owner of the Yellow house smokes Dunhill
hint7([(_,yellow,_,dunhill,_)|_]).
hint7([_|T]) :- hint7(T).

% The man living in the centre house drinks milk
hint8(Persons) :- person(3, Persons, (_,_,milk,_,_)).

% The Norwegian lives in the first house
hint9(Persons) :- person(1, Persons, (norwegian,_,_,_,_)).

% The man who smokes Blends lives next to the one who keeps cats
hint10([(_,_,_,blend,_),(_,_,_,_,cat)|_]).
hint10([(_,_,_,_,cat),(_,_,_,blend,_)|_]).
hint10([_|T]) :- hint10(T).

% The man who keeps horses lives next to the man who smokes Dunhill
hint11([(_,_,_,dunhill,_),(_,_,_,_,horse)|_]).
hint11([(_,_,_,_,horse),(_,_,_,dunhill,_)|_]).
hint11([_|T]) :- hint11(T).

% The man who smokes Blue Master drinks beer
hint12([(_,_,beer,bluemaster,_)|_]).
hint12([_|T]) :- hint12(T).

% The German smokes Prince
hint13([(german,_,_,prince,_)|_]).
hint13([_|T]) :- hint13(T).

% The Norwegian lives next to the blue house
hint14([(norwegian,_,_,_,_),(_,blue,_,_,_)|_]).
hint14([(_,blue,_,_,_),(norwegian,_,_,_,_)|_]).
hint14([_|T]) :- hint14(T).

% The man who smokes Blends has a neighbour who drinks water
hint15([(_,_,_,blend,_),(_,_,water,_,_)|_]).
hint15([(_,_,water,_,_),(_,_,_,blend,_)|_]).
hint15([_|T]) :- hint15(T).

% The question : Who owns the fish ?
question([(_,_,_,_,fish)|_]).
question([_|T]) :- question(T).


solution(Persons) :-
persons(5, Persons),
hint1(Persons),
hint2(Persons),
hint3(Persons),
hint4(Persons),
hint5(Persons),
hint6(Persons),
hint7(Persons),
hint8(Persons),
hint9(Persons),
hint10(Persons),
hint11(Persons),
hint12(Persons),
hint13(Persons),
hint14(Persons),
hint15(Persons),
question(Persons).

What I understand is, that we create a list(Persons) in this form:[(_Men,_Color,_Drink,_Smoke,_Animal), (_Men,_Color,_Drink,_Smoke,_Animal), (_Men,_Color,_Drink,_Smoke,_Animal), (_Men,_Color,_Drink,_Smoke,_Animal), (_Men,_Color,_Drink,_Smoke,_Animal)]
and then try to match each hint with this list. But the problem is, the order of the items, and how they are saved, for example, when hint one is called, then the first rule matches the list Persons, and then it is saved in the first position, then with hint2 in the second and so on, but what happens when it overeaches the list? How are they saved, and since order matters? I also don't understand how hint 8 and 9 works. Can anyone help? Thanks.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top