Subversion Repositories programming

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
107 ira 1 
odd(X) :- 1 is X mod 2.
2 
even(X) :- 0 is X mod 2.
3 
 
4 
 
5 
sum_odd([],0).
6 
sum_odd([H|T],N) :- odd(H), N1 is N+H, sum_odd(T,N1).
7 
sum_odd([H|T],N) :- even(H), sum_odd(T,N).