Roman numeral by dcutter

#!perl -p
$l=1e3;$r=0;$r+=($"=M999D499C99L49X9V4I=~$_+$')-2*$l*($l<$"),$l=$"for/./g;s/.*/$r/

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

download

return to the top page