Перевод римских цифр в арабские

[Mr. Kibernetik]

Code: Select all

r = #.input("Введите римское число:")

n = [1,5,10,50,100,500,1000]
a,m = 0
> i, #.size(r)..1, -1
  v,c = n[#.pos("IVXLCDM",#.mid(#.upper(r),i))]
  ? v<m, v = -v
  ? c>m, m = c
  a += v
<

#.output("Арабское число: ",a)