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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

1
2
3
4
5
6
7
factorial(0,1). 
 
factorial(N,F) :-  
   N>0, 
   N1 is N-1, 
   factorial(N1,F1), 
   F is N * F1.

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

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

1
odd(N) :- N = 1.

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

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

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

1
2
even(0).
even(succ(succ(X))) :- even(X).

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

1
2
3
4
5
c(0):-!.
c(X):-
        write(X), nl,
        XN is X-1,
        c(XN).

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

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

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

1
2
Odd_even(X). :-
mod(X,2) @>= 1.