10 lines
207 B
Prolog
10 lines
207 B
Prolog
male(john).
|
|
male(jimmy).
|
|
female(mary).
|
|
parent(john, jimmy).
|
|
parent(mary, jimmy).
|
|
father(X, Y) :- parent(X, Y), male(X).
|
|
mother(X, Y) :- parent(X, Y), female(X).
|
|
|
|
foo(0).
|
|
foo(X) :- X > 0, Y is X - 1, foo(Y).
|