giles
53968c2480
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 24s
Project Euler #1: sum of all multiples of 3 or 5 below 1000. let euler1 limit = let sum = ref 0 in for i = 1 to limit - 1 do if i mod 3 = 0 || i mod 5 = 0 then sum := !sum + i done; !sum euler1 1000 = 233168 Trivial DSL exercise but symbolically meaningful: this is the 100th baseline program. 100 baseline programs total — milestone.
11 lines
155 B
OCaml
11 lines
155 B
OCaml
let euler1 limit =
|
|
let sum = ref 0 in
|
|
for i = 1 to limit - 1 do
|
|
if i mod 3 = 0 || i mod 5 = 0 then sum := !sum + i
|
|
done;
|
|
!sum
|
|
|
|
;;
|
|
|
|
euler1 1000
|