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.


sum_odd([],0).
sum_odd([H|T],N) :- odd(H), N1 is N+H, sum_odd(T,N1).
sum_odd([H|T],N) :- even(H), sum_odd(T,N).