10 lines
359 B
Plaintext
10 lines
359 B
Plaintext
var [const] romans = L(
|
|
L("M", 1000), L("CM", 900), L("D", 500), L("CD", 400), L("C", 100),
|
|
L("XC", 90), L("L", 50), L("XL", 40), L("X", 10), L("IX", 9),
|
|
L("V", 5), L("IV", 4), L("I", 1));
|
|
fcn toRoman(i){ // convert int to a roman number
|
|
reg text = "";
|
|
foreach R,N in (romans){ text += R*(i/N); i = i%N; }
|
|
return(text);
|
|
}
|