진법(radix) 표 만들기 예제 with Julia

컴퓨터 프로그래밍에서 꼭 알아두어야 할 주요 진법은 당연히 10진법, 2진법, 8진법, 16진법이다.
다음은  0 에서 15 까지의 정수를 10진법, 2진법, 8진법, 16진법의 표로 만들어 보여주는 Julia 소스 코드이다. 진법 변환에 필요한 함수

        convertAtoI(string, radix)
        convertItoA(number, radix)

를 Julia 코드로 자체 작성하여 사용하였다.

1. ##  Filename: makeRadixTable.jl
2. ##            Show the radix table with 10-, 2-, 8-, 16-radices.
3. ##
4. ##  Execute: julia makeRadixTable.jl
5. ##
6. ##      Date:  2013. 3. 5.
7. ##    Author:  pkim __AT__ scripts ((DOT)) pe ((DOT)) kr
10. BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
12. # The function println() is defined already in Julia language.
13. # function println(s...)
14. #     if length(s) > 0
15. #         println(s[1])
16. #     else
17. #         println("")
18. # end
20. function printUsage()
21.     println("Usage: julia makeRadixTable.jl")
22.     println("Show the radix table with 10-, 2-, 8-, 16-radices.")
23. end
25. function convertItoA(num, radix)
26.    isNegative = false
27.    if num < 0
28.       isNegative = true
29.       num = -num
30.    end
32.    arr = ""
33.    q, r = num, 0
34.    while q >= radix
35.       # q, r = divmod(q, radix)
36.       r = mod(q, radix)
37.       q = div(q, radix)
38.       arr *= BASE36[r+1]
39.    end
41.    arr *= BASE36[q + 1]
42.    if isNegative
43.       arr *= "-"
44.    end
46.    return reverse(arr)
47. end
49. function convertAtoI(srcStr, radix)
50.     isNegative = false
51.     ret = 0
52.     m = length(srcStr)
53.     val = 0
54.     c = srcStr[1]
56.     if c == '-'
57.         isNegative = true
58.     elseif c >= '0' && c <= '9'
59.         ret = int(c) - int('0')
60.     elseif c >= 'A' && c <= 'Z'
61.         ret = (int(c) - int('A')) + 10
62.     elseif c >= 'a' && c <= 'z'
63.         ret = (int(c) - int('a')) + 10
64.     end
66.     if ret >= radix
67.         println("        Invalid character!")
68.         return ret
69.     end
71.     for i = 2:m
72.         c = srcStr[i]
73.         ret *= radix
74.         if c >= '0' && c <= '9'
75.             val = int(c) - int('0')
76.         elseif c >= 'A' && c <= 'Z'
77.             val = (int(c) - int('A')) + 10
78.         elseif c >= 'a' && c <= 'z'
79.             val = (int(c) - int('a')) + 10
80.         end
82.         if val >= radix:
83.             println("        Invalid character!")
84.             return ret
85.         end
87.         ret *= val
88.     end
90.     return ret
91. end
93. function toWidth(s, width)
94.     t = s
95.     if width > length(s)
96.         t = " "^(width - length(s)) * s
97.     elseif width < -length(s)
98.         t = s * " "^(-width - length(s))
99.     end
100.     return t
101. end
103. function makeTable()
104.     sbuf = ""
105.     abuf = ""
106.     tbuf = ""
107.     for i = 1:4
108.         sbuf *= "+-------"
109.     end
111.     sbuf *= "+"
112.     println(sbuf)
114.     sbuf = "|  Dec"
115.     sbuf *= "\t|   Bin"
116.     sbuf *= "\t|  Oct"
117.     sbuf *= "\t|  Hex  |"
118.     println(sbuf)
120.     sbuf = ""
121.     for i = 1:4
122.         sbuf *= "+-------"
123.     end
125.     sbuf *= "+"
126.     println(sbuf)
128.     for i = 0:15
129.         sbuf = "|   " * toWidth(string(i), 2)
130.         abuf = convertItoA(i, 2)
131.         tbuf = "  |  " * toWidth(abuf , 4)
132.         sbuf *= tbuf
133.         abuf = convertItoA(i, 8)
134.         tbuf = " |   " * toWidth(abuf , 2)
135.         sbuf *= tbuf
136.         abuf = convertItoA(i, 16)
137.         tbuf = "  |    "*  toWidth(abuf , -2) * " |"
138.         sbuf *= tbuf
139.         println(sbuf)
140.     end
142.     sbuf = ""
143.     for i = 1:4
144.         sbuf *= "+-------"
145.     end
146.     sbuf *= "+"
147.     println(sbuf)
148. end
151. if length(ARGS) > 0 && "-h" == ARGS[1]
152.     printUsage()
153.     exit(1)
154. end
156. makeTable()

실행> julia makeRadixTable.jl

+-------+-------+-------+-------+
|  Dec  |   Bin |  Oct  |  Hex  |
+-------+-------+-------+-------+
|    0  |     0 |    0  |    0  |
|    1  |     1 |    1  |    1  |
|    2  |    10 |    2  |    2  |
|    3  |    11 |    3  |    3  |
|    4  |   100 |    4  |    4  |
|    5  |   101 |    5  |    5  |
|    6  |   110 |    6  |    6  |
|    7  |   111 |    7  |    7  |
|    8  |  1000 |   10  |    8  |
|    9  |  1001 |   11  |    9  |
|   10  |  1010 |   12  |    A  |
|   11  |  1011 |   13  |    B  |
|   12  |  1100 |   14  |    C  |
|   13  |  1101 |   15  |    D  |
|   14  |  1110 |   16  |    E  |
|   15  |  1111 |   17  |    F  |
+-------+-------+-------+-------+