Roman numeral by aaa

import Maybe
r=foldl(\t c->t+y c-t`mod`y c*2)0
y x=fromJust$lookup x$zip"IVXLCDM"[1,5,10,50,100,500,1000]
m@main=getLine>>=print.r>>m

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

download

return to the top page