View source with
raw comments
or as
raw
1
r
(
X
)
:-
X
>
0
.
2
r
(a)
.
3
r
(b)
.
4
r
(c)
.
5
6
p(X):-r(X), not
q(X).
7
q(X):-not
p(X).
8
9
q
(
5
)