Subversion Repositories programming

Rev

Rev 107 | Blame | Compare with Previous | Last modification | View Log | RSS feed 

% Code Copyright: Ira W. Snyder
% Date: 07-11-2005
% License: Public Domain

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


any_odd([H|_]) :- odd(H) , !.
any_odd([_|T]) :- any_odd(T).