Anonymous user
Roman numerals/Encode: Difference between revisions
{{header|Euphoria}}
(char x[] more storage efficient than char *x here) |
({{header|Euphoria}}) |
||
Line 654:
"CMXLIV"
</pre>
=={{header|Euphoria}}==
{{trans|BASIC}}
<lang Euphoria>constant arabic = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 }
constant roman = {"M", "CM", "D","CD", "C","XC","L","XL","X","IX","V","IV","I"}
function toRoman(integer val)
sequence result
result = ""
for i = 1 to 13 do
while val >= arabic[i] do
result &= roman[i]
val -= arabic[i]
end while
end for
return result
end function
printf(1,"%d = %s\n",{2009,toRoman(2009)})
printf(1,"%d = %s\n",{1666,toRoman(1666)})
printf(1,"%d = %s\n",{3888,toRoman(3888)})</lang>
Output:
2009 = MMIX
1666 = MDCLXVI
3888 = MMMDCCCLXXXVIII
=={{header|Factor}}==
| |||