giles
00ffba9306
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Failing after 29s
Iteratively takes lcm of running result with i:
let rec gcd a b = if b = 0 then a else gcd b (a mod b)
let lcm a b = a * b / gcd a b
let euler5 n =
let r = ref 1 in
for i = 2 to n do
r := lcm !r i
done;
!r
euler5 20 = 232792560
= 2^4 * 3^2 * 5 * 7 * 11 * 13 * 17 * 19
Tests gcd_lcm composition (iter 140) on a fresh problem.
109 baseline programs total.
12 lines
184 B
OCaml
12 lines
184 B
OCaml
let rec gcd a b = if b = 0 then a else gcd b (a mod b)
|
|
let lcm a b = a * b / gcd a b
|
|
let euler5 n =
|
|
let r = ref 1 in
|
|
for i = 2 to n do
|
|
r := lcm !r i
|
|
done;
|
|
!r
|
|
;;
|
|
|
|
euler5 20
|