From d5c645bf83f144838e84b21e4941a0e42b0a9a61 Mon Sep 17 00:00:00 2001 From: Iru Cai Date: Fri, 25 May 2018 14:13:16 +0800 Subject: 47, 49, 50 --- euler47.myr | 49 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 euler47.myr (limited to 'euler47.myr') diff --git a/euler47.myr b/euler47.myr new file mode 100644 index 0000000..f53bec0 --- /dev/null +++ b/euler47.myr @@ -0,0 +1,49 @@ +use std + +const n_prime_factors = {n + var nf = 0 + var p = 3 + + if n % 2 == 0 + while n % 2 == 0 + n /= 2 + ;; + nf = 1 + ;; + + while n > 1 + if n % p == 0 + while n % p == 0 + n /= p + ;; + nf ++ + ;; + p += 2; + ;; + -> nf +} + + +const main = { + var i = 210 + while true + if !(n_prime_factors(i) == 4) + i++ + continue + ;; + if !(n_prime_factors(i+1) == 4) + i += 2 + continue + ;; + if !(n_prime_factors(i+2) == 4) + i += 3 + continue + ;; + if !(n_prime_factors(i+3) == 4) + i += 4 + continue + ;; + std.put("{}\n", i) + break + ;; +} -- cgit v1.2.3