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

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

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
check(C,N):- C is N mod 2.
odd(N) :- check(C,N) = 1.

1
2
read(X).
even(X)

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

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

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

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

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

1
2
3
4
5
isEven(X) :-
        X > 0,
        0 is X mod 2.
 
                

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

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

1
2
3
4
5
6
 
 even(N) :- (N mod 2 =:= X,
(X=:=0, write('EVEN'),nl,fail)
 ;(write('ODD'),nl,fail)
 ).
 

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

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

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

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

1
even(N) :- N % 2 == 0

1
2
3
4
read(X).
 
even(X) :- write('even'), nl, fail);
odd(X) :- write('odd'), nl, fail);

1
even(N) :- N % 2 == 0

1
2
 
hello_world :- write('Hello World!'), nl.

1
2
3
4
5
isEven(X) :-
        X > 0,
        0 is X mod 2.
 
                

1
even(N) :- N % 2 == 0

1
odd(X) :-  1 is rem(X,2).

1
write('Hi!), nl.

1
even(N) :- N % 2 == 0

1
odd(X) :-  1 is rem(X,2).

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

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