View/Edit #33:to_roman

Switch to edit mode.

1:  "Copied from Lao-Tzu (#8084):to_roman May 17 02:26:45 1997"
2:  n = args[1]
3:  q = ""
4:  while (n > 0)
5:    if (n >= 1000)
6:      q = q + "M"
7:      n = n - 1000
8:    elseif (n >= 900)
9:      q = q + "CM"
10:     n = n - 900
11:   elseif (n >= 500)
12:     q = q + "D"
13:     n = n - 500
14:   elseif (n >= 400)
15:     q = q + "CD"
16:     n = n - 400
17:   elseif (n >= 100)
18:     q = q + "C"
19:     n = n - 100
20:   elseif (n >= 90)
21:     q = q + "XC"
22:     n = n - 90
23:   elseif (n >= 50)
24:     q = q + "L"
25:     n = n - 50
26:   elseif (n >= 40)
27:     q = q + "XL"
28:     n = n - 40
29:   elseif (n >= 10)
30:     q = q + "X"
31:     n = n - 10
32:   elseif (n >= 9)
33:     q = q + "IX"
34:     n = n - 9
35:   elseif (n >= 5)
36:     q = q + "V"
37:     n = n - 5
38:   elseif (n >= 4)
39:     q = q + "IV"
40:     n = n - 4
41:   elseif (n >= 1)
42:     q = q + "I"
43:     n = n - 1
44:   endif
45:   $cmd_utils:suspend_if_needed()
46: endwhile
47: return q
48: "Last modified by Dax (#789) on Sat May 16 14:19:17 1998 EDT."

[home | help | who | search | setup | code]