Language: C C++ D Haskell Lua OCaml PHP Perl Plain Text Python Ruby Scheme Tcl s=p=0 for x in raw_input():x={6:1,19:5,21:10,9:50,0:100,1:500,10:1000}[ord(x)-67];s+=(x,x-p-p)[p<x];p=x print s Private [?] Run code