Details |
Last modification |
View Log
| RSS feed
| Rev |
Author |
Line No. |
Line |
| 107 |
ira |
1 |
even(X) :- 0 is X mod 2.
|
|
|
2 |
odd(X) :- 1 is X mod 2.
|
|
|
3 |
|
|
|
4 |
none([],0,0).
|
|
|
5 |
|
|
|
6 |
none([H|T],NO,NE) :- odd(H),
|
|
|
7 |
none(T,N,NE),
|
|
|
8 |
NO is N+1.
|
|
|
9 |
|
|
|
10 |
none([_|T],NO,NE) :- none(T,NO,N),
|
|
|
11 |
NE is N+1.
|
|
|
12 |
|