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 |
keep_odd([],[]).
|
|
|
5 |
|
|
|
6 |
keep_odd([H|T],[H|Tnew]) :- odd(H), keep_odd(T,Tnew).
|
|
|
7 |
|
|
|
8 |
keep_odd([H|T],Tnew) :- not(odd(H)), keep_odd(T,Tnew).
|
|
|
9 |
|
|
|
10 |
/* keep_odd([_|T],Tnew) :- keep_odd(T,Tnew). */
|
|
|
11 |
|