RosettaCodeData/Task/Roman-numerals-Encode/TUSCRIPT/roman-numerals-encode.tu

6 lines
162 B
Turing

$$ MODE TUSCRIPT
LOOP arab_number="1990'2008'1666"
roman_number = ENCODE (arab_number,ROMAN)
PRINT "Arabic number ",arab_number, " equals ", roman_number
ENDLOOP