Imbiss-Aufgabe, Prolog-Kurs

gistfile1.prolog

% ein imbiss fuer eine person ist essen
% und trinken das zueinander passt und
% das die person mag
imbiss(Person,Essen,Trinken):-
	trinkt(Person,Trinken),
	isst(Person,Essen),
	passt(Essen,Trinken).

% ------------------ regeln: gerichte

% zu fisch passt nur weisswein
passt(Essen,Trinken):-
	fisch(Essen),
	Trinken \= weisswein,
	Trinken \= nichts,
	!,fail.

% zu salat passt kein alkohol
passt(salat,Trinken):-
	alc(Trinken),
	!,fail.

% generell passt essen zu trinken
passt(Essen,Trinken):-
	essen(Essen),
	trinken(Trinken).

% ------------------ regeln: getraenke

% tim ist antialkoholiker
trinkt(tim,X):-
	trinken(X),
	not(alc(X)).
	% ev. 'nichts' ausschliessen
	% X \= nichts.

% susanne und peter trinken alles
trinkt(susanne,X):-
	trinken(X).
	% ev. 'nichts' ausschliessen
	% X \= nichts.

trinkt(peter,X):-
	trinken(X).
	% ev. 'nichts' ausschliessen
	% X \= nichts.

% marie hat keinen durst
trinkt(marie,X):-
	X = nichts.

% ------------------ regeln: essen

% tim isst alles
isst(tim,X):-
	essen(X).

% susanne isst weder fisch noch fleisch
isst(susanne,X):-
	essen(X),
	not(fleisch(X)),
	not(fisch(X)).

% peter isst nur pizza
isst(peter,pizza).

% marie isst nur backfisch und pizza
isst(marie,backfisch).
isst(marie,pizza).

% -------------------- bausteine
% verfuegbares essen und trinken

essen(pizza).
essen(lasagne).
essen(salat).
essen(backfisch).

trinken(bier).
trinken(weisswein).
trinken(wasser).
trinken(nichts).
trinken(cola).

alc(bier).
alc(weisswein).

fleisch(lasagne).
fisch(backfisch).