Roman numeral by MG

#!perl -plaF
$l=1;$v=M999D499C99L49X9V4I=~$d+$' and$_+=($v<$l?-1:1)*($l=$v)while$d=pop@F

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page