强大的数字计数

作者:Moritz Lenz

https://projecteuler.net/problem=63

5 位数 16807=7^5 也是一个五次幂。同样,9 位数 134217728=8^9 是一个九次幂。

有多少个 n 位正整数也是 n 次幂?

源代码:prob063-moritz.pl

use v6;

sub MAIN(Bool :$verbose = False) {
    my $count = 0;
    for 1..9 -> $x {
        for 1..200 -> $y {
            if ($x**$y).chars == $y {
                say "$x**$y" if $verbose;
                $count++;
            }
        }
    }
    say $count;
    say "missing bigint support: answer should be 49" if $verbose;
}