10進数から任意のN進数への変換 with Perl6

dec_to_n.pl

use v6;
sub MAIN ($n! is copy, $radix = "2**31") {

    my $num_radix = eval $radix.Str;
    my $num_n = eval $n.Str;

    CATCH {
        die "something is wrong!";
    }

    my @ans;
    while ($num_n != 0) {
        @ans.push: $num_n % $num_radix;
        $num_n = ($num_n / $num_radix).Int;
    }
    say (eval $n.Str) ~ " -> $radix based";
    say "[", @ans.join("; "), "]";
}

宣言型プログラム論ミニプロジェクトの検算用