12 lines
242 B
Prolog
12 lines
242 B
Prolog
% tree structure
|
|
parent(pam,bob).
|
|
parent(tom,bob).
|
|
parent(tom,liz).
|
|
parent(bob,ann).
|
|
parent(bob,pat).
|
|
parent(pat,jim).
|
|
|
|
predecessor(X, Z) :- parent(X, Z).
|
|
predecessor(X, Z) :- parent(X, Y), predecessor(Y, Z).
|
|
|
|
offspring(Y, X) :- parent(X, Y). |