11 lines
417 B
Plaintext
11 lines
417 B
Plaintext
RomanForm[i_Integer?Positive] :=
|
|
Module[{num = i, string = "", value, letters, digits},
|
|
digits = {{1000, "M"}, {900, "CM"}, {500, "D"}, {400, "CD"}, {100,
|
|
"C"}, {90, "XC"}, {50, "L"}, {40, "XL"}, {10, "X"}, {9,
|
|
"IX"}, {5, "V"}, {4, "IV"}, {1, "I"}};
|
|
While[num > 0, {value, letters} =
|
|
Which @@ Flatten[{num >= #[[1]], ##} & /@ digits, 1];
|
|
num -= value;
|
|
string = string <> letters;];
|
|
string]
|