1
write('X') :- 0 < X.

1
2
odd(X):- 1 is mod(X,2).
comp(X):- odd(X) = 1.

1
2
countdown(N) :-
write(N).

1
odd(N) :- 1 is mod(N, 2).

1
write(X) :- 0 < X.

1
even(X) :- 0 is mod(X,2).

1
2
3
4
5
6
num(1).
num(X) :-
        X>0.
        write(X).
        X is X-1. 
        num(X).

1
2
3
is_odd(X) :- 1 is mod(X,2).
is_even(X) :- 0 is mod(X,2).
 

1
2
3
4
5
 
 even(N) :-  0 is mod(N,2).
 
 
 

1
odd(N) :- 1 is mod(N, 2).

1
even(X) :- 0 is mod(X,2).

1
2
3
4
5
6
r(0):- write('even').
r(1):- write('odd').
 
c(X):-
        NX is mod(X,2),
        r(NX).

1
2
3
4
5
6
num(1).
num(X) :-
        X>0.
        write(X).
        X is X-1. 
        num(X).

1
2
3
4
5
 
 even(N) :-  0 is mod(N,2).
 
 
 

1
eprint(X,X) :- 0 < X.

1
even(X) :- TRUE is mod(X,2).

1
2
3
4
countdown(1) :- write(1).
countdown(N) :-
write(N).
countdown(N-1).

1
2
write(X).
number(X) :-! 0 is X-1.

1
2
3
4
5
6
r(0):- write('even').
r(1):- write('odd').
 
c(X):-
        X is mod(X,2),
        r(X).

1
even(X):- 0 is mod(X,2).

1
2
3
4
5
 
 even(N) :-  0 is mod(N,2).
 
 
 

1
odd(N) :- mod( N, 2) is 1.

1
2
pop(1, 0) :- write('0'), nl.
pop(X, Xp) := nl, write(), nl, X > 1, pop(Q, Qp), X is Q - 1.

1
2
countdown(X) :- 0 < X.
eprint(X,X):- countdown(X).

1
write('abc').

1
2
odd(X):- 1 is mod(X,2).
comp(X):- odd(X) = 1.

1
number(X) :-! 0 is X--.

1
odd(N) :- mod( N, 2) = 1.

1
2
3
4
5
 
 even(N) :-  0 is mod(N,2).
 
 
 

1
2
3
4
5
num(1).
num(X) :-
        X>0.
        write(X).
        X is X-1.