5 lines
165 B
Turing
5 lines
165 B
Turing
$$ MODE TUSCRIPT
|
|
LOOP roman_number="MCMXC'MMVIII'MDCLXVI"
|
|
arab_number=DECODE (roman_number,ROMAN)
|
|
PRINT "Roman number ",roman_number," equals ", arab_number
|
|
ENDLOOP
|