Blame | Last modification | View Log | RSS feed
even(X) :- 0 is X mod 2.odd(X) :- 1 is X mod 2.keep_odd([],[]).keep_odd([H|T],[H|Tnew]) :- odd(H), keep_odd(T,Tnew).keep_odd([H|T],Tnew) :- not(odd(H)), keep_odd(T,Tnew)./* keep_odd([_|T],Tnew) :- keep_odd(T,Tnew). */