/*Ein allererstes Prologprogramm
Speichern Sie das Programm ab, etwa als "anfang.pl"
Auf der Prologkonsole geben Sie dann ein:
? - consult('anfang.pl').
Dann können Sie die Abfrage starten.
*/

/*Wer endeckt was?

"entdecken" ist ein PRÄDIKAT
"hugo", "saturn", "herschel", "uranus", "galle", "neptun" sind ATOME


Wir abgefragt durch:
?- entdecken(herschel,uranus).
	YES
?- entdecken(Wer,uranus).
   Wer = herschel
   YES;
   NO.

(der Strichpunkt wird vom Benutzer eingegeben und bedeutet: ODER?)

?- entdecken(X,Y).
   X = herschel
   YES;
   X = galle
   YES;
   NO.
*/

entdecken(hugo,saturn).
entdecken(herschel,uranus).
entdecken(galle,neptun).

/*
Die erste Regel:
Wer etwas entdeckt, lacht
(X lacht dann, wenn X etwas entdeckt)
X (großgeschrieben) ist eine VARIABLE
_ ist die ANONYME VARIABLE
*/

lachen(X) :-
	entdecken(X,_).