(while(def m{"I"1"V"5"X"10"L"50"C"100"D"500"M"1000})(prn(apply +(map #((if(<(m(% 0))(m(% 1)0))- +)(m(% 0)))(re-seq #".(?=(.)?)"(read-line))))))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page