Roman numeral by o-cn

<?for(;$a=fgetc(STDIN);)$c=$a^~\xc5?$c+($d=+(~\xce\x9a.strpos(IXCMVLD,$a))%9995)-$c%$d*2:!print$c.$a;

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

download

return to the top page