Chinese Numerals

chinese-numerals.p6

use v6;

sub MAIN($number = 14282) {
    my $numerals = <零 一 二 三 四 五 六 七 八 九>;
    my $places = $number.polymod(10, 10, 10, 10).reverse;
    my Str $numbers = join "", do for ^5 -> $index {
        my Int $number = $places[$index];
        next if $number == 0;
        $numerals[$number] ~ <万 千 百 十>[$index];
    }

    $numbers.say;
}