1
2
3
4
5
countdown(0) :- write(0), halt.
countdown(N) :-
write(N), nl,
M is N - 1,
countdown(M).

1
2
3
4
5
6
factorial(0,1):- !.
factorial(X, Y):- 
        X>0,
        X1 is X-1,
        factorial(X1, Z),
        Y is X*Z.

1
2
3
4
5
factorial(0,1):- !.
factorial(X, Y):- 
        Z is X*Y,
        factorial(X-1, Z),
        write(Y).

1
2
3
4
5
factorial(0,1):- !.
factorial(X, Y):- 
        Y is X*Y,
        factorial(X-1, Y),
        write(Y).

1
2
3
4
5
countdown(1) :- write(1), !.
countdown(N) :-
write(N), nl,
M is N - 1,
countdown(M).

1
2
3
4
5
countdown(1) :- write(1), !.
countdown(N) :-
write(N), nl,
M is N - 1,
write(M).

1
2
3
4
5
countdown(1) :- write(1).
countdown(N) :-
write(N),
M is N - 1,
write(M).

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

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

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

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

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

1
2
3
4
5
6
isEven(X) :-
        X > 0,
        0 is X mod 2.
 
% coded by Umali, Erwin, 2010-23119
                

1
2
3
4
5
6
isEven(X) :-
        X > 0,
        0 is X mod 2.
 
% coded by Umali, Erwin, 2010-23119
                

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

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

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

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

1
2
3
4
5
countdown(0) :- write(0), halt.
countdown(N) :-
write(N), nl,
M is N - 1,
countdown(M).

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

1
2
3
4
5
countdown(0) :- write(0).
countdown(N) :-
write(N), nl,
M is N - 1,
countdown(M).

1
2
3
4
5
countdown(1) :- write(1), !.
countdown(N) :-
write(N), nl,
M is N - 1,
countdown(M).

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

1
2
3
4
5
countdown(1) :- write(1), !.
countdown(N) :-
write(N), nl,
M is N - 1,
write(M).

1
2
3
4
5
countdown(1) :- write(1).
countdown(N) :-
write(N),
M is N - 1,
write(M).

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

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

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

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

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