Euler.mag

# Problem #1
#
# If we list all the natural numbers below 10 that are multiples of 3
# or 5, we get 3, 5, 6 and 9. The sum of these multiples is 23.
#
# Find the sum of all the multiples of 3 or 5 below 1000.


var euler1x (a Int, s Int, e Int -> Int)
   if s >= e then
       a
   else
       euler1x (a + s if (s % 3 == 0 or s % 5 == 0) else a) (s + 1) e
   end if
end

var euler1 (-> Int) euler1x 0 0 1000

Main(->)

end