14 lines
243 B
Raku
14 lines
243 B
Raku
constant @sq = ^10 X** 2;
|
|
my $cnt = 0;
|
|
|
|
sub Euler92($n) {
|
|
$n == any(1,89) ?? $n !!
|
|
(state %){$n} //= Euler92( [+] @sq[$n.comb] )
|
|
}
|
|
|
|
for 1 .. 1_000_000 -> $n {
|
|
my $i = +$n.comb.sort.join;
|
|
++$cnt if Euler92($i) == 89;
|
|
}
|
|
|
|
say $cnt;
|