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

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

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

1
countdown(N) :- write("Test").

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

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

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

1
2
write(Y).
Y= 9.

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

1
2
?- write(Y).
Y= 9.

1
2
3
Odd_even(X).
Odd_even(X):- 0 is mod(X,2) , write ('even number'), NL.
Odd_even(X):- write ('odd number'), nl.

1
2
countdown(X) :- 0 < X.
writef("%d", X) :- countdown(X).

1
2
3
4
num(1) :- !
num(X) :-
        write(X).
        X is X-1. 

1
2
3
4
odd(X):- 1 is mod(X,2).
even(X):- 0 is mod(X,2).
comp(X):-
        odd(X).

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

1
even(N) :- N mod 2 =:= 0.

1
2
3
4
5
6
7
8
countdown(0) :-
write(0), nl,
!.
countdown(X) :-
X > 0, 
write(X), nl,
Y is X-1,
countdown(Y).

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

1
2
3
4
num(1) :- !
num(X) :-
        write(x).
        X is X-1. 

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

1
2
3
4
5
 even(N).
 even(N) :- (N mod 2 =:= 0 ->write('EVEN')
 ; write('ODD')
 ).
 

1
even(N) :- N mod 2 =:= 0.

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

1
2
3
4
odd(X):- 1 is mod(X,2).
even(X):- 0 is mod(X,2).
comp(X):-
        1 is odd(X).

1
2
3
Odd_even(X).
Odd_even(X):- X mod 2= 0, write ('even number'), NL.
Odd_even(X):- write ('odd number'), nl.

1
2
3
4
5
6
7
countdown(0) :-
write(0), nl,
!.
countdown :- 
write(X), nl,
Y is X-1,
countdown(Y).

1
countdown(X) :- 0 < X.

1
2
3
4
5
 even(0).
 even(N) :- (N mod 2 =:= 0 ->write('EVEN')
 ; write('ODD')
 ).
 

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

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