bachelor.lp 147 Bytes
Edit Raw Blame History



1

2

3

4

5

6

7

8

9


person(joey).

married(X); -married(X) :- person(X).

male(X); female(X) :- person(X).

bachelor(X) :- male(X), not married(X).

#show bachelor/1.