Anonymous user
Sum multiples of 3 and 5: Difference between revisions
Scheme version
m (Removed stray debug remnant.) |
(Scheme version) |
||
Line 519:
0 milliseconds with rexx m35a > m35a.txt
46 millisecond with rexx m35a</pre>
=={{header|Scheme}}==
<lang scheme>
(fold (lambda (x tot) (+ tot (if (or (zero? (remainder x 3)) (zero? (remainder x 5))) x 0))) 0 (iota 1000))
</lang>
Output:
<pre>
233168
</pre>
| |||