Task

The objective is to write a function that finds the sum of all positive multiples of 3 or 5 below n.

Show output for n = 1000.

This is is the same as Project Euler problem 1.

Extra credit: do this efficiently for n = 1e20 or higher.




sumMul35: function [n][
	sum select 1..n-1 [x][or? 0=x%3 0=x%5]
]
 
print sumMul35 1000