masakism ROMAN

gistfile1.txt

use Test;

is to_roman(3), "III", "3 gets converted to III";

sub to_roman (Int $n is copy) {
    my $printstring;
    for <M 1000 D 500 C 100 L 50 X 10 V 5 I 1> -> $roman, $decimal {
        $printstring ~= $roman x $n div +$decimal;
        $n %= $decimal;     
    }
    for <DCCCC CM CCCC CD LXXXX XC XXXX XL VIIII IX IIII IV> -> $long, $short {    
        $printstring ~~ s:g/$long/$short/;
    }

    say $printstring;
}