14 lines
541 B
Text
14 lines
541 B
Text
V roman_values = [(‘I’, 1), (‘IV’, 4), (‘V’, 5), (‘IX’, 9), (‘X’, 10),
|
||
(‘XL’, 40), (‘L’, 50), (‘XC’, 90), (‘C’, 100),
|
||
(‘CD’, 400), (‘D’, 500), (‘CM’, 900), (‘M’, 1000)]
|
||
|
||
F roman_value(=roman)
|
||
V total = 0
|
||
L(symbol, value) reversed(:roman_values)
|
||
L roman.starts_with(symbol)
|
||
total += value
|
||
roman = roman[symbol.len..]
|
||
R total
|
||
|
||
L(value) [‘MCMXC’, ‘MMVIII’, ‘MDCLXVI’]
|
||
print(value‘ = ’roman_value(value))
|