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

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

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

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

1. --  Filename: makeRadixTable.lua
2. --            Show the radix table with 10-, 2-, 8-, 16-radices.
3. --
4. --  Execute: lua makeRadixTable.lua
5. --
6. --      Date:  2008/03/28
7. --    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
9. BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
11. function println(s)
12.     print(s)
13. end
15. function printUsage()
16.     println("Usage: lua makeRadixTable.lua")
17.     println("Show the radix table with 10-, 2-, 8-, 16-radices.")
18. end
20. function convertItoA(num, radix)
21.     local isNegative = false
22.     if num < 0 then
23.         isNegative = true
24.         num = -num
25.     end
27.     local arr = ""
28.     local q = num
29.     local r = 0
31.     while q >= radix do
32.         r = math.fmod(q, radix)
33.         q = math.floor(q / radix)
34.         arr = arr .. string.sub(BASE36, r+1, r+1)
35.     end
36.     arr = arr .. string.sub(BASE36, q+1, q+1)
38.     if isNegative then
39.         arr = arr .. "-"
40.     end
42.     local n = string.len(arr)
43.     local ret = ""
44.     for i = 1, n do
45.         ret = ret .. string.sub(arr, n - i + 1, n - i + 1)
46.     end
48.     return ret
49. end
51. function convertAtoI(srcStr, radix)
52.     local isNegative = false
53.     local ret = 0
54.     local len = string.len(srcStr)
55.     local val = 0
56.     local c
58.     c = string.sub(srcStr, 1, 1)
59.     if c == '-' then
60.         isNegative = true
61.     elseif c >= '0' and c <= '9' then
62.         ret = string.byte(c) - string.byte('0')
63.     elseif c >= 'A' and c <= 'Z' then
64.         ret = string.byte(c) - string.byte('A') + 10
65.     elseif c >= 'a' and c <= 'z' then
66.         ret = string.byte(c) - string.byte('a') + 10
67.     end
69.     if ret >= radix then
70.         println("        Invalid character!")
71.         return ret
72.     end
74.     for i = 2, len do
75.         c = string.sub(srcStr, i, i)
76.         ret = ret * radix
77.         if c >= '0' and c <= '9' then
78.             val = string.byte(c) - string.byte('0')
79.         elseif c >= 'A' and c <= 'Z' then
80.             val = string.byte(c) - string.byte('A') + 10
81.         elseif c >= 'a' and c <= 'z' then
82.             val = string.byte(c) - string.byte('a') + 10
83.         end
85.         if val >= radix then
86.             println("        Invalid character!")
87.             return ret
88.         end
89.         ret = ret + val
90.     end
92.     return ret
93. end
95. function makeTable()
96.     sbuf = ""
97.     abuf = ""
98.     tbuf = ""
100.     for i = 1, 4 do
101.         sbuf = sbuf .. "+-------"
102.     end
103.     sbuf = sbuf .. "+"
104.     println(sbuf)
106.     sbuf = "|  Dec"
107.     sbuf = sbuf .. "\t|   Bin"
108.     sbuf = sbuf .. "\t|  Oct"
109.     sbuf = sbuf .. "\t|  Hex  |"
110.     println(sbuf)
112.     sbuf = ""
113.     for i = 1, 4 do
114.         sbuf = sbuf .. "+-------"
115.     end
116.     sbuf = sbuf .. "+"
117.     println(sbuf)
119.     for i = 0, 15 do
120.         sbuf = string.format("|   %2d", i)
121.         abuf = convertItoA(i, 2)
122.         tbuf = string.format("\t|  %4s", abuf)
123.         sbuf = sbuf .. tbuf
125.         abuf = convertItoA(i, 8)
126.         tbuf = string.format("\t|   %2s", abuf)
127.         sbuf = sbuf .. tbuf
129.         abuf = convertItoA(i, 16)
130.         tbuf = string.format("\t|    %-2s |", abuf)
131.         sbuf = sbuf .. tbuf
132.         println(sbuf)
133.     end
135.     sbuf = ""
136.     for i = 1, 4 do
137.         sbuf = sbuf .. "+-------"
138.     end
139.     sbuf = sbuf .. "+"
140.     println(sbuf)
141. end
144. if #arg > 0 and "-h" == arg[1] then
145.     printUsage()
146.     os.exit(1)
147. end
149. makeTable()

실행> lua makeRadixTable.lua

+-------+-------+-------+-------+
|  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  |
+-------+-------+-------+-------+

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.