for(;l=readline(p=n=0);print(n))for(;c={I:1,V:5,X:10,L:50,C:100,D:500,M:1e3}[/./g(l)];)n+=p=p<c?c-2*p:c
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page