3 lines
54 B
Perl
3 lines
54 B
Perl
|
use Math::Roman qw/roman/;
|
||
|
|
say roman($_) for 1..2012'
|