Sha256: 3b0618b38af8ab901ffee593d6e38bdec618c85550b8956d673e463815d1beba
Contents?: true
Size: 398 Bytes
Versions: 78
Compression:
Stored size: 398 Bytes
Contents
unit module RomanNumerals:ver<3>;
my %table{Int} = <1000 900 500 400 100 90 50 40 10 9 5 4 1>
Z=>
<M CM D CD C XC L XL X IX V IV I>;
sub to-roman ($number is copy) is export {
[~] gather {
for %table.keys.sort.reverse -> $k {
if (my $repeat = $number div $k) {
$number -= $k * $repeat;
take %table{$k} x $repeat;
}
}
}
}
Version data entries
78 entries across 78 versions & 1 rubygems