2011-04-01 21:34:24 +02:00
|
|
|
divisible_3_5(N) :- 0 is N rem 3 ; 0 is N rem 5.
|
2011-04-01 00:32:48 +02:00
|
|
|
|
2011-04-01 21:34:24 +02:00
|
|
|
sum_divisors(End, End, Total, Total).
|
|
|
|
|
sum_divisors(Start, End, Acc, Total) :- divisible_3_5(Start), Next is Start + 1, NewAcc is Acc + Start, sum_divisors(Next, End, NewAcc, Total).
|
|
|
|
|
sum_divisors(Start, End, Acc, Total) :- Next is Start + 1, sum_divisors(Next, End, Acc, Total).
|
2011-04-01 02:28:23 +02:00
|
|
|
|
2011-04-01 21:34:24 +02:00
|
|
|
e1(Result) :- sum_divisors(2, 1000, 0, Result).
|
