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.