mirror of
https://github.com/JonasHinterdorfer/TextAdventure.git
synced 2025-10-26 11:51:11 +00:00
6 lines
120 B
Prolog
6 lines
120 B
Prolog
parent(john, mary).
|
|
parent(mary, ann).
|
|
ancestor(X, Y) :- parent(X, Y).
|
|
ancestor(X, Y) :- parent(X, Z), ancestor(Z, Y).
|
|
|