손으로 만드는 나눗셈 계산표 with Common Lisp

다음은 초등학교에서 배우는 나눗셈 계산표를 만들어주는 Common Lisp 소스 코드이다.
나눗셈 계산표를 완성하고 나서 약수, 배수 관계를 알려준다.

아래의 소스는 CLisp으로 실행되도록 작성되었다.

1. #!/usr/bin/env clisp
3. ;;  Filename: makeDivisionTable.lsp
4. ;;
5. ;;  Purpose:  Make a division table in a handy written form.
6. ;;
7. ;;  Execute: clisp makeDivisionTable.lsp 12345 32
8. ;;           clisp makeDivisionTable.lsp 500210 61
9. ;;           ./makeDivisionTable.lsp 500210 61
10. ;;
11. ;;     Date:  2013, 9. 5.
13. (defun printUsage()
14.     (format t "사용법: clisp makeDivisionTable.lsp [피제수] [제수]~%")
15.     (format t "손으로 작성한 형태의 나눗셈 표를 만들어준다.~%") )
17. (defun simplify(v &optional width)
18.     (let* ((tt "")
19.            (slen 0))
20.         (setf tt (format nil "~A" v))
21.         (setf slen (length tt))
22.         (if (and (>= slen 2) (string= (substring tt (- slen 2) slen) ".0"))
23.             (setf tt (substring tt 0 (- slen 2))) )
24.         (setf slen (length tt))
25.         (if width
26.             (if (< slen width)
27.                 (setf tt (concatenate 'string (make-string (- width slen) :initial-element #\Space) tt)) ))
28.         tt
29.     )
30. )
32. (defun getSuffix(v)
33.     (let* ((tt (mod (abs v) 10))
34.            (suffix "은"))
35.         (if (search (format nil "~A" tt) "2459")
36.             (setf suffix "는") )
37.         suffix
38.     )
39. )
41. (defun makeTable(numer denom quotient)
42.     (let* ((strNumer (format nil "~A" numer))
43.            (strDenom (format nil "~A" denom))
44.            (strQuotient (format nil "~A" quotient))
45.            (lenN (length strNumer))
46.            (lenD (length strDenom))
47.            (lenQ (length strQuotient))
48.            (offsetLeft (+ 3 lenD 3))
49.            (spaces (make-string 100 :initial-element #\Space))
50.            (uline (make-string (+ lenN 2) :initial-element #\_))
51.            (sline (make-string lenN :initial-element #\-))
52.            (bias (- lenN lenQ))
53.            (strTmpR (substring strNumer 0 (+ bias 1)))
54.            (tmpR (parse-integer strTmpR))
55.            (tmpSub 0)
56.            (oneDigit nil) )
58.         (format t "~A~A~A~%" (substring spaces 0 offsetLeft) (substring spaces 0 bias) (format nil "~D" quotient))
59.         (format t "~A~A~%" (substring spaces 0 (- offsetLeft 2)) uline)
60.         (format t "~A~A~A~A" "   " strDenom " ) " strNumer)
62.         (loop for i from 0 below lenQ do
63.             (if (string= (substring strQuotient i (1+ i)) "0")
64.                 (progn
65.                     (if (< (1+ i) lenQ)
66.                         (progn
67.                            (setf oneDigit (substring strNumer (+ bias i 1) (+ bias i 2)))
68.                            (format t "~A" oneDigit)
69.                            (setf strTmpR (concatenate 'string strTmpR oneDigit))
70.                            (setf tmpR (parse-integer strTmpR))
71.                         )
72.                     )
73.                 )
74.                 (progn
75.                     (format t "~%")
76.                     (setf tmpSub (* (parse-integer (substring strQuotient i (1+ i))) denom))
77.                     (format t "~A~A~%" (substring spaces 0 offsetLeft) (simplify tmpSub (+ bias i 1)))
78.                     (format t "~A~A~%" (substring spaces 0 offsetLeft) sline)
79.                     (setf tmpR (- tmpR tmpSub))
80.                     (if (and (= tmpR 0) (< (+ i 1) lenQ))
81.                         (format t "~A~A" (substring spaces 0 offsetLeft) (substring spaces 0 (+ bias i 1)))
82.                         (format t "~A~A" (substring spaces 0 offsetLeft) (simplify tmpR (+ bias i 1)))
83.                     ) 
85.                     (setf strTmpR (format nil "~D" tmpR)) 
86.                     (if (< (+ i 1) lenQ)
87.                         (progn
88.                             (setf oneDigit (substring strNumer (+ bias i 1) (+ bias i 2)))
89.                             (if (plusp (length oneDigit))
90.                                 (progn
91.                                     (format t "~A" oneDigit)
92.                                     (setf strTmpR (concatenate 'string strTmpR oneDigit))
93.                                 )
94.                             )
95.                             (setf tmpR (parse-integer strTmpR))
96.                         )
97.                     )
98.                 )
99.             )
100.         )
101.         tmpR
102.     )
103. )
106. ;; Begin here
107. (if (< (length ext:*args*) 2)
108.     (progn
109.         (printUsage)
110.         (quit)
111.     )
112. )
115. (setf a nil)
116. (setf b nil)
118. (handler-case
119.     (progn
120.         (setf a (parse-integer (nth 0 ext:*args*)))
121.         (setf b (parse-integer (nth 1 ext:*args*)))
122.         (if (minusp a)
123.             (progn
124.                 (format t "피제수: ~A~%" a)
125.                 (format t "피제수는 양의 정수라야 합니다.~%")
126.                 (quit)
127.             )
128.             (if (minusp b)
129.                 (progn
130.                     (format t "제수: ~A~%" b)
131.                     (format t "제수는 양의 정수라야 합니다.~%")
132.                     (quit)
133.                 )
134.             )
135.         )
137.         (setf q (floor (/ a b)))
138.         (setf r (mod a b))
140.         (format t "나눗셈 ~A ÷ ~A 의 결과: " a b)
141.         (format t "몫:  ~A, " q)
142.         (format t "나머지: ~A~%" r)
143.         (format t "~%")
145.         (setf k (makeTable a  b q))
146.         (format t "~%")
148.         (if (= k r)
149.             (format t "~%나머지: ~A~%" k)
150.         )
151.         (if (= k 0)
152.             (progn
153.                 (format t "~A = ~A x ~A~%" a b q)
154.                 (format t "~A~A ~A의 배수(mupltiple)이다.~%" a (getSuffix a) b)
155.                 (format t "~A~A ~A의 약수(divisor)이다.~%" b (getSuffix b) a)
156.                 (format t "~%")
157.             )
158.             (progn
159.                 (format t "~A = ~A x ~A + ~A~%" a b q r)
160.                 (format t "~A~A ~A의 배수(mupltiple)가 아니다.~%" a (getSuffix a) b)
161.                 (format t "~%")
162.             )
163.         )
164.     )
166.     (parse-error (c)
167.         (format t "예외상황: ~A" c)
168.         (format t "이 발생였음. 다시 하시오,~%~%")
169.     )
170. )

실행> clisp makeDivisionTable.lsp 500210 61

나눗셈 500210 ÷ 61 의 결과: 몫: 8200, 나머지: 10

          8200
      ________
   61 ) 500210
        488
        ------
         122
         122
        ------
            10

나머지: 10
500210 = 61 x 8200 + 10
500210은 61의 배수(mupltiple)가 아니다.