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

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

         string fromBase(radix)
         string toBase(radix)

가 이미 있지만, 여기에 준하는 메소드

        convertAtoI(string, radix)
        convertItoA(int, radix)

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

1. /*
2.  *  Filename: makeRadixTable.io
3.  *            Show the radix table with 10-, 2-, 8-, 16-radices.
4.  *
5.  *  Execute: io makeRadixTable.io
6.  *
7.  *      Date:  2008/05/01
8.  *    Author:  PH Kim   [ pkim (AT) scripts.pe.kr ]
9.  */
11. printUsage := method(
12.     "Usage: io makeRadixTable.io" println
13.     "Show the radix table with 10-, 2-, 8-, 16-radices." println
14. )
16. convertItoA := method(num, radix,
17.     BASE36 := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
18.     q := 0
19.     r := 0
20.     isNegative := false
21.     if (num < 0) then (
22.         isNegative = true
23.         num = -num
24.     )
26.     arr := ""
27.     q = num
28.     r = 0
30.     while (q >= radix,
31.         r = q % radix
32.         q = (q / radix) floor
33.         arr = arr .. (BASE36 slice(r, r + 1))
34.      )
35.      arr =  arr .. (BASE36 slice(q, q + 1))
36.      if (isNegative) then (
37.          arr = "-" .. arr
38.      )
39.      n := arr size
40.      ret := ""
41.      for (i, 0, n - 1,
42.          ret = ret .. arr slice(n - i - 1, n - i)
43.      )
44.      return ret
45. )
47. convertAtoI := method(srcStr, radix,
48.     BASE36 := "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
49.     isNegative := false
50.     ret := 0
51.     len := srcStr size
52.     c := ""
53.     i := 0
54.     val := 0
56.     c = srcStr at(0)
57.     if (c == "-") then (
58.         isNegative = true
59.     ) elseif (c >= "0" and c <= "9") then (
60.         ret = (c product) - ("0" product)
61.     ) elseif (c >= "A" and c <= "Z") then (
62.         ret = (c product) - ("A" product) + 10
63.     ) elseif (c >= "a" and  <= "z") then (
64.         ret = (c product) - ("a" product) + 10
65.     )
66.     if (ret >= adix) then (
67.         "        Invalid character!" println
68.         return ret
69.     )
71.     for (i, 1,  len - 1,
72.         c = srcStr[i]
73.         ret = ret * radix
74.         if (c >= "0" and c <= "9") then (
75.             val = c product - "0" product
76.         ) elseif (c >= 'A' and c <= 'Z') then (
77.             val = c product - "A" product + 10
78.         ) elseif (c >= 'a' and c <= 'z') then (
79.             val = c product - "a" product + 10
80.         )
81.         if (val >= (long) radix) then (
82.             "        Invalid character!" println
83.             return ret
84.         )
85.         ret = ret + val
86.     )
87.     return ret
88. )
90. makeTable := method(
91.     sbuf := ""
92.     abuf := ""
93.     tbuf := ""
94.     i := 0
95.     j := 0
96.     c := ""
98.     for (i, 0, 3,
99.         "+-------" print
100.     )
101.     "+" print
102.     "" println
104.     "|  Dec" print
105.     "\t|   Bin" print
106.     "\t|  Oct" print
107.     "\t|  Hex  |" print
108.     "" println
110.     for (i, 0, 3,
111.         "+-------" print
112.     )
113.     "+" print
114.     "" println
116.     for (i, 0, 15,
117.         strI := i asString
118.         if (strI size < 2) then (strI = (" " repeated(2 - (strI size))) .. strI)
119.         sbuf = "|   " .. strI
120.         abuf = convertItoA(i, 2)
121.         strA := abuf
122.         if (strA size < 4) then (strA = " " repeated(4 - strA size) .. strA)
123.         tbuf = "\t|  " .. strA
124.         sbuf = sbuf .. tbuf
125.         abuf = convertItoA(i, 8)
126.         strA = abuf
127.         if (strA size < 2) then (strA = " " repeated(2 - strA size) .. strA)
128.         tbuf = "\t|   " .. strA
129.         sbuf = sbuf .. tbuf
131.         abuf = convertItoA(i, 16)
132.         strA = abuf
133.         if (strA size < 2) then (strA = " " repeated(2 - strA size) .. strA)
134.         tbuf = "\t|   " .. strA
135.         sbuf = sbuf .. tbuf .. "  |"
136.         sbuf println
137.     )
139.     for (i, 0, 3,
140.         "+-------" print
141.     )
142.     "+" print
143.     "" println
144. )
146. if (args size > 1 and "-h" == args at(1)) then (
147.     printUsage()
148.     exit(1)
149. )
151. makeTable()

실행> io makeRadixTable.io

+-------+-------+-------+-------+
|  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 대한민국 라이센스에 따라 이용하실 수 있습니다.