16 lines
497 B
Text
16 lines
497 B
Text
with javascript_semantics
|
|
function toRoman(integer v)
|
|
sequence roman = {"M", "CM", "D","CD", "C","XC","L","XL","X","IX","V","IV","I"},
|
|
decml = {1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1 }
|
|
string res = ""
|
|
integer val = v
|
|
for i=1 to length(roman) do
|
|
while val>=decml[i] do
|
|
res &= roman[i]
|
|
val -= decml[i]
|
|
end while
|
|
end for
|
|
return {v,res} -- (for output)
|
|
end function
|
|
|
|
?apply({1990,2008,1666},toRoman)
|