Subversion Repositories programming

Rev

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

Rev Author Line No. Line
108 ira 1 
% Code Copyright: Ira W. Snyder
2 
% Date: 07-11-2005
3 
% License: Public Domain
4 
 
107 ira 5 
odd(X) :- 1 is X mod 2.
6 
even(X) :- 0 is X mod 2.
7 
 
8 
 
9 
sum_odd([],0).
10 
sum_odd([H|T],N) :- odd(H), N1 is N+H, sum_odd(T,N1).
11 
sum_odd([H|T],N) :- even(H), sum_odd(T,N).