6 lines
131 B
Plaintext
6 lines
131 B
Plaintext
parent(xerces, brooke).
|
|
parent(brooke, damocles).
|
|
|
|
ancestor(X, Y) :- parent(X, Y).
|
|
ancestor(X, Y) :- parent(X, Z), ancestor(Z, Y).
|