1
2
3
4
5
fac(0,1):-!.
fac(N,Nfac):-N>0.
M is N -1.
fac(M, Mfac).
Nfac is N*Nfac.

1
is_odd(X) :- mod(X/2)=1.

1
2
3
countdown(X) :- X>0,
X is X-1,
countdown(X).

1
2
3
even(C,N) :- C is N.
write('even') :- C rem 2 =/= 0.
write('odd') :- X rem 2 =:= 0.

1
2
3
4
5
6
fac(0,1):-!.
fac(N,Nfac):-
N>0.
M is N -1.
fac(M, Mfac).
Nfac is N*Nfac.

1
countdown('X'). 

1
2
3
4
5
6
fac(0,1):-!.
fac(N,Nfac):-
N>0.
M is N -1.
fac(M, Mfac).
Nfac is N*Nfac.

1
2
3
4
5
6
fac(0,1) :- !.
fac(N, Nfac) :-
        N>0,
        M is N-1,
        fac(M, Mfac),
        Nfac is N*Nfac.

1
odd_or_even(X) :- Y is mod(X/2).

1
2
3
4
5
6
fac(0, 1) :- !.
fac(N, Nfac) :-
N > 0,
M is N - 1,
fac(M, Mfac),
Nfac is N * Mfac.

1
2
countdown(X).   
write(X).

1
2
3
4
5
6
fac(0, 1) :- !.
fac(N, Nfac) :-
N > 0,
M is N - 1,
fac(M, Mfac),
Nfac is N * Mfac.

1
odd_or_even :- Y is mod(X/2).

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

1
write(X).

1
countdown(X).   

1
2
3
4
5
read_animal(X) :-
  write('please type animal name:'),
  nl,
  read(X),
  animal(X).

1
2
 
countdown(X) := write(X).

1
write(X).

1
2
3
4
5
6
7
8
9
go :-
 repeat,
 print('Enter a number '),
 get0(Num), nl,
 ( 
  ((Num>58), print('You did not enter a number'),nl,fail)
    ;
     (print('Do it again'), nl, fail)
        ).

1
2
 
countdown(X) := write(X).

1
odd_or_even :- Y is mod(X/2).

1
2
3
4
5
6
7
8
9
go :-
 repeat,
 printt('Enter a number '),
 get0(Num), nl,
 ( 
  ((Num>58), print('You did not enter a number'),nl,fail)
    ;
     (print('Do it again'), nl, fail)
        ).

1
OddorEven :- Y is mod(X/2).

1
write(X).

1
2
3
4
5
6
7
8
9
go :-
 repeat,
 printt('Enter a number '),
 get0(Num), nl,
 ( 
  ((Num>58), print('You did not enter a number'),
    ;
     (print('Do it again'), nl, fail)
        ).

1
OddorEven :- Y is mod(X/2).

1
OddorEven :- Y is mode(X/2).

1
 

1
R is mod(7,2).