Roman numeral by rst76

m@main=getLine>>=print.sum.scanr1(!).map(maybe 1(*5).($zip"VXLCDM"[1,2,10,20,100,200]).lookup)>>m
a!b|a<b= -a|0<1=a

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

download

return to the top page