From 3caa8876e4c1d71cf8973d0d78231f16a0cd5b93 Mon Sep 17 00:00:00 2001 From: Iru Cai Date: Fri, 25 May 2018 00:16:47 +0800 Subject: 45, 46, 92 --- euler92.myr | 27 +++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 euler92.myr (limited to 'euler92.myr') diff --git a/euler92.myr b/euler92.myr new file mode 100644 index 0000000..3092405 --- /dev/null +++ b/euler92.myr @@ -0,0 +1,27 @@ +use std + +const goto89 = {x + const sqrsum = {y + var sum = 0 + while y > 0 + var b = y % 10 + y = y / 10 + sum += b * b + ;; + -> sum + } + while x != 1 && x != 89 + x = sqrsum(x) + ;; + -> x == 89 +} + +const main = { + var n = 0 + for var i = 1; i < 10_000_000; i++ + if goto89(i) + n++ + ;; + ;; + std.put("{}\n", n) +} -- cgit v1.2.3