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

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

        (convertItoA number  radix)

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

(아래의 소스는 CLisp으로  실행된다.)

1. ;;  Filename: makeRadixTable.lsp
2. ;;            Show the radix table with 10-, 2-, 8-, 16-radices.
3. ;;
4. ;;  Execute: clisp makeRadixTable.lsp
5. ;;
6. ;;      Date:  2013. 9. 5.
9. (setf *BASE36* "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")
12. (defun println(s)
13.     (if (equal s nil)
14.         (format t "~%")
15.         (format t "~A~%" s) ))
17. (defun printUsage()
18.     (println "Usage: clisp makeRadixTable.lsp")
19.     (println "Show the radix table with 10-, 2-, 8-, 16-radices.") )
21. (defun join-string-list (string-list)
22.     ; (format nil "~{~A~^ ~}" string-list))
23.     (format nil "~{~A~^~}" string-list))
25. (defun to-right-align(s)
26.     (let* ((n (length s))
27.            (a (get-token s))
28.            (k (length a)))
29.          (if (= n 0) s)
30.          (concatenate 'string (substring s k n) a) ))
32. (defun get-token (s)
33.   (let* ((i (if (find (elt s 0) "+-") 1 0))
34.          (d (position-if 'nonwhite-char-p s :start i))
35.          (f 0))
37.     (if (equal d nil) s
38.            (progn
39.                (setf f (position-if 'white-char-p s :start (1+ d)))
40.                (if (equal f nil) s
41.                    (progn
42.                         (substring s d f) )) )) ))
44. (defun nonwhite-char-p (c)
45.     (> (char-code c) (char-code #\Space)))
47. (defun white-char-p (c)
48.     (<= (char-code c) (char-code #\Space)))
50. (defun convertItoA(num radix)
51.     (let* ((isNegative nil)
52.            (a 0)
53.            (arr (list))
54.            (q 0)
55.            (r 0))
57.         (if (equal radix nil) (setf radix 10))
59.         (if (minusp num) (progn
60.             (setf isNegative t)
61.             (setf inum (- num)) ))
63.         (setf q num)
65.         (loop while (>= q radix) do
66.             (setf r (mod q radix))
67.             (setf q (floor (/ q radix)))
68.             (setf arr (nconc arr (list (substring *BASE36* r (1+ r)))))
69.         )
71.        (setf arr (nconc arr (list (substring *BASE36* q (1+ q)))))
72.        (if isNegative (nconc (ncons arr (list "-"))) )
73.        ; (format t "~A~%" arr)
75.        (setf arr (reverse arr))
76.        (join-string-list arr)
77.     )
78. )
81. (defun makeTable()
82.     (let* ((sbuf "")
83.            (abuf "")
84.            (tbuf ""))
86.         (loop for i from 0 below 4 do
87.             (setf sbuf (concatenate 'string sbuf "+-------")) )
89.         (setf sbuf (concatenate 'string sbuf "+"))
90.         (format t "~A~%" sbuf)
92.         (setf sbuf "|  Dec")
93.         (setf sbuf (concatenate 'string sbuf (format nil "  |  Bin")))
94.         (setf sbuf (concatenate 'string sbuf (format nil "  |  Oct")))
95.         (setf sbuf (concatenate 'string sbuf (format nil "  |  Hex  |")))
96.         (format t "~A~%" sbuf)
98.         (setf sbuf "")
99.         (loop for i from 0 below 4 do
100.             (setf sbuf (concatenate 'string sbuf "+-------")) )
102.         (setf sbuf (concatenate 'string sbuf "+"))
103.         (format t "~A~%" sbuf)
105.         (loop for i from 0 below 16 do
106.             (setf sbuf (format nil "|   ~2D" i))
107.             (setf abuf (convertItoA i 2))
108.             (setf tbuf (format nil "  |  ~A" (to-right-align (format nil "~4A" abuf))))
109.             (setf sbuf (concatenate 'string sbuf tbuf))
111.             (setf abuf (convertItoA i 8))
112.             (setf tbuf (format nil " |   ~A" (to-right-align (format nil "~2A" abuf))))
113.             (setf sbuf (concatenate 'string sbuf tbuf))
115.             (setf abuf (convertItoA i 16))
116.             (setf tbuf (format nil "  |   ~A  |" (to-right-align (format nil "~2A" abuf))))
117.             (setf sbuf (concatenate 'string sbuf tbuf))
118.             (format t "~A~%" sbuf)
119.         )
121.         (setf sbuf "")
122.         (loop for i from 0 below 4 do
123.             (setf sbuf (concatenate 'string sbuf "+-------")) )
125.         (setf sbuf (concatenate 'string sbuf "+"))
126.         (format t "~A~%" sbuf)
127. ))
130. (if (and (> (length ext:*args*) 0) (equal (nth 0 ext:*args*) "-h")) (progn
131.     (printUsage)
132.     (quit) ))
134. (makeTable)

실행> clisp makeRadixTable.lsp

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