http://www.perlmonks.org?node_id=1087950


in reply to The 10**21 Problem (Part I)

You can easily gain one character on the Perl one:
sub u {IXCMVLD=~$_;"1E@-"%9995} sub i {XCMVLD=~$_;"1E@+"%9995} print $_, v9, u, v9, i, $/ for qw(M D C L X V I);
Output:
M 1000 1000 D 500 500 C 100 100 L 50 50 X 10 10 V 5 5 I 1 1