24 lines
589 B
Perl
24 lines
589 B
Perl
use List::MoreUtils qw( natatime );
|
|
|
|
my %symbols = (
|
|
1 => "I", 5 => "V", 10 => "X", 50 => "L", 100 => "C",
|
|
500 => "D", 1_000 => "M"
|
|
);
|
|
|
|
my @subtractors = (
|
|
1_000, 100, 500, 100, 100, 10, 50, 10, 10, 1, 5, 1, 1, 0
|
|
);
|
|
|
|
sub roman {
|
|
return '' if 0 == (my $n = shift);
|
|
my $iter = natatime 2, @subtractors;
|
|
while( my ($cut, $minus) = $iter->() ) {
|
|
$n >= $cut
|
|
and return $symbols{$cut} . roman($n - $cut);
|
|
$n >= $cut - $minus
|
|
and return $symbols{$minus} . roman($n + $minus);
|
|
}
|
|
};
|
|
|
|
print roman($_) . "\n" for 1..2012;
|