대화형 모드의 진법(radix) 변환 예제 with Julia

다음은  대화형 모드(interactive mode)에서 진법 변환(radix conversion)하는 Julia 소스 코드이다.
메뉴는 주메뉴 Command: (S)et radix, (A)bout, (Q)uit or E(x)it
와 부메뉴 SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
로 구성되어 있으며, 진법 변환의 핵심은 Julia 의 빌트인 함수 parse_int(string, radix)와 소스 코드에 자체 작성된 함수 itoa(number, radix)의 사용이다.

         val = parse_int(s, srcRdx)
         ret = itoa(val, destRdx)

지원되는 진법은 2진법에서 36진법까지이다.

1. ##  Filename: convertRadix.jl
2. ##            Convert radix in a interactive mode.
3. ##
4. ##  Execute: julia convertRadix.jl
5. ##
6. ##      Date:  2013. 3. 5.
7. ##    Author:  pkim __AT__ scripts ((DOT)) pe ((DOT)) kr
9. # The function println() is defined already in Julia language.
10. # function println(s...)
11. #     if length(s) > 0
12. #         println(s[1])
13. #     else
14. #         println("")
15. # end
17. function printUsage()
18.     println("Usage: julia convertRadix.jl")
19.     println("Convert radix in a interactive mode, where the maximum radix is 36.")
20. end
22. function printAbout()
23.     println("    About: Convert radix in a interactive mode.")
24. end
26. function printMainMenu()
27.     println("  Command: (S)et radix, (A)bout, (Q)uit or E(x)it")
28. end
30. function printMainPrompt()
31.     print("  Prompt> ")
32. end
34. function printSubMenu(srcRadix, destRadix)
35.     println("    Convert Radix_" * string(srcRadix) * " to Radix_" * string(destRadix))
36.     println("    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit")
37. end
39. function printSubPrompt()
40.     print("    Input Value>> ")
41. end
43. BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
45. function itoa(num, radix)
46.    isNegative = false
47.    if num < 0
48.       isNegative = true
49.       num = -num
50.    end
52.    arr = ""
53.    q, r = num, 0
54.    while q >= radix
55.       # q, r = divmod(q, radix)
56.       r = mod(q, radix)
57.       q = div(q, radix)
58.       arr *= BASE36[r+1]
59.    end
61.    arr *= BASE36[q + 1]
62.    if isNegative
63.       arr *= "-"
64.    end
66.    return reverse(arr)
67. end
69. function convertRadix(s, srcRdx, destRdx)
70.     ret = ""
71.     try
72.         val = parse_int(s, srcRdx)
73.         ret = itoa(val, destRdx)
74.         return uppercase(ret)
75.     catch x
76.         println(x)
77.         println("    Error: Cannot convert radix " * string(srcRdx))
78.         return uppercase(ret)
79.     end
80. end
82. function doConvert(srcRadix, destRadix)
83.     line = ""
84.     cmd = ""
85.     srcStr = ""
86.     destStr = ""
87.     println("")
89.     printSubMenu(srcRadix, destRadix)
90.     try
91.         while true
92.             printSubPrompt()
93.             cmd = ""
94.             while length(cmd) == 0
95.                 cmd = readline(STDIN)
96.                 cmd = strip(cmd)
97.             end
99.             if "main()" == cmd
100.                 return
101.             elseif "exit()" == cmd || "quit()" == cmd
102.                 exit(0)
103.             end
105.             try
106.                 parse_int(cmd, srcRadix)
107.                 srcStr = cmd
108.                 destStr = convertRadix(srcStr, srcRadix, destRadix)
109.                 println("        ( " * srcStr * " )_" * string(srcRadix) *  "   --->   ( " * destStr * " )_" * string(destRadix))
110.                 println("")
111.             catch x
112.                  print ("")    # pass
113.             end
114.         end
115.     catch x
116.         println(x)
117.     end
118. end
120. function doStart()
121.     line = ""
122.     cmd = ""
123.     srcRadix = 10
124.     destRadix = 10
125.     srcStr = ""
126.     destStr = ""
127.     onlyOnce = true
129.     try
130.         while true
131.             println()
132.             if onlyOnce
133.                 println("  The supported maximum radix is 36.")
134.                 onlyOnce = false
135.             end
137.             printMainMenu()
138.             printMainPrompt()
139.             cmd = ""
140.             while length(cmd) == 0
141.                 cmd = readline(STDIN)
142.                 cmd = strip(cmd)
143.             end
144.             if length(search("qQxX", cmd)) >= 1 && length(cmd) == 1
145.                 exit(0)
146.             elseif length(search("aA", cmd)) >= 1 && length(cmd) == 1
147.                 printAbout()
148.             elseif length(search("sS", cmd)) >= 1 && length(cmd) == 1
149.                 print("  Input the source and target radices (say, 16 2): ")
150.                 line = readline(STDIN)
151.                 st = split(line, " ")
152.                 while length(st) < 2
153.                     print("  Input the source and target radices (say, 16 2): ")
154.                     line = readline(STDIN)
155.                     st = split(linem, " ")
156.                 end
158.                 try
159.                     srcRadix = parse_int(st[1])
160.                     destRadix = parse_int(st[2])
161.                     doConvert(srcRadix, destRadix)
162.                 catch ex
163.                     println(ex)
164.                     println("Try again!")
165.                 end
166.             end
167.         end
168.     catch x
169.         println(x)
170.     end
171. end
174. # Begin here
175. if length(ARGS) > 0 && "-h" == ARGS[1]
176.     printUsage()
177.     exit(1)
178. end
180. doStart()

실행> julia convertRadix.jl

  The supported maximum radix is 36.
  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> s
  Input the source and target radices (say, 16 2): 10 8

    Convert Radix_10 to Radix_8
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 200
        ( 200 )_10   --->   ( 310 )_8

    Input Value>> main()

  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> S
  Input the source and target radices (say, 16 2): 8 10

    Convert Radix_8 to Radix_10
    SubCommand: 'main()' to goto Main menu, 'exit()' or 'quit()' to exit
    Input Value>> 2666
        ( 2666 )_8   --->   ( 1462 )_10

    Input Value>> main()

  Command: (S)et radix, (A)bout, (Q)uit or E(x)it
  Prompt> x