Roman numerals/Decode: Difference between revisions

Content added Content deleted
Line 2,672: Line 2,672:
=={{header|EasyLang}}==
=={{header|EasyLang}}==
<syntaxhighlight lang="text">
<syntaxhighlight lang="text">
proc rom2dec rom$ . val .
func rom2dec rom$ .
symbols$[] = [ "M" "D" "C" "L" "X" "V" "I" ]
symbols$[] = [ "M" "D" "C" "L" "X" "V" "I" ]
values[] = [ 1000 500 100 50 10 5 1 ]
values[] = [ 1000 500 100 50 10 5 1 ]
Line 2,688: Line 2,688:
oldv = v
oldv = v
.
.
return val
.
.
call rom2dec "MCMXC" v
print rom2dec "MCMXC"
print v
print rom2dec "MMVIII"
call rom2dec "MMVIII" v
print rom2dec "MDCLXVI"
print v
call rom2dec "MDCLXVI" v
print v
</syntaxhighlight>
</syntaxhighlight>