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

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

아래의 소스는 Python 용 소스를 F# 용 소스로 거의 일대일 변환하고,또 F# 소스를 OCaml 소스로 변환한 것이라서, OCaml 언어의 명령형 언어의 특징을 위주로 짜여져 있다.

예외상황 처리 부분 try ... with ... 부분이 아직 미완성이다.

1. (*
2.  *  Filename: makeDivisionTable.ml
3.  *
4.  *  Purpose:  Make a division table in a handy written form.
5.  *
6.  *  Execute: ocaml makeDivisionTable.ml
7.  *
8.  *   Or
9.  *
10.  *  Compile: ocamlc -o makeDivisionTable.exe makeDivisionTable.ml
11.  *  Execute: makeDivisionTable 12345 32
12.  *           makeDivisionTable 500210 61
13.  *           makeDivisionTable 234 55
14.  *
15.  *     Date:  2013. 2. 2.
16.  *   Author:  pkim __AT__ scripts.pe.kr
17.  *)
19. open Printf ;;
21. exception RuntimeError of string
22. exception ValueError of string
24. let sBASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ;;
25. let sSPACE = "                                                          "  ;;
26. let sULINE = "__________________________________________________________"  ;;
27. let sHIPHEN = "----------------------------------------------------------"  ;;
29. let println s = printf "%s\n" s ;;
31. let print s = printf "%s" s ;;
33. let printUsage() =
34.     (* print("Using: makeDivisionTable [numerator] [denominator]")  *)
35.     (* print("Make a division table in a handy written form.") *)
36.     println "사용법: makeDivisionTable [피제수] [제수]" ;
37.     println "손으로 작성한 형태의 나눗셈 표를 만들어준다." ;;
39. let simplify v width =
40.     let t = [| string_of_int v |] in
41.     let slen = (String.length t.(0)) in
42.     if slen < width then begin
43.         t.(0) <- (String.sub sSPACE 0 (width - slen)) ^ t.(0)
44.     end ;
45.     t.(0) ;;
47. let getSuffix v =
48.     let t = v mod 10  in
49.     let suffix = [| "은" |] in
50.     if (String.contains "2459" (string_of_int  t).[0]) then begin
51.         suffix.(0) <- "는" ;
52.     end ;
53.     suffix.(0) ;;
55. let makeTable numer denom quotient =
56.     let strNumer = sprintf "%d" numer in
57.     let strDenom = sprintf "%d" denom  in
58.     let strQuotient = sprintf "%d" quotient  in
59.     let lenN = String.length strNumer  in
60.     let lenD = String.length strDenom  in
61.     let lenQ = String.length strQuotient  in
62.     let offsetLeft = 3 + lenD + 3  in
63.     let spaces = "                                                                                 "  in
64.     let uline  = String.sub sULINE 0 (lenN + 2)  in
65.     let sline  = String.sub sHIPHEN 0 lenN  in
66.     let bias = lenN - lenQ  in
68.     println ((String.sub spaces 0 offsetLeft) ^ (String.sub spaces 0 bias) ^ (sprintf "%d" quotient)) ;
69.     println ((String.sub spaces 0 (offsetLeft - 2)) ^ uline) ;
70.     print ("   " ^ strDenom ^ " ) " ^ strNumer) ;
72.     let strTmpR = [| String.sub strNumer 0  (bias + 1) |] in
73.     let tmpR = ref (int_of_string strTmpR.(0))  in
74.     let tmpSub = ref 0  in
75.     let oneDigit = [| "" |] in
77.     for i = 0 to (lenQ - 1) do
78.         if (String.sub strQuotient i 1) = "0" then begin
79.             if i + 1 < lenQ then begin
80.                 oneDigit.(0) <- (String.sub  strNumer (bias + i + 1) 1) ;
81.                 printf "%s" oneDigit.(0)  ;
82.                 strTmpR.(0) <- (strTmpR.(0) ^ oneDigit.(0)) ;
83.                 tmpR := int_of_string strTmpR.(0)
84.             end
85.         end
86.         else  begin
87.             print_newline() ;
88.             tmpSub := (int_of_string (String.sub strQuotient i 1)) * denom ;
89.             printf "%s\n" ((String.sub spaces 0 offsetLeft) ^ (simplify !tmpSub  (bias + i + 1)))  ;
90.             printf "%s\n" ((String.sub spaces 0 offsetLeft) ^ sline)  ;
91.             tmpR := !tmpR - !tmpSub  ;
93.             if !tmpR = 0 && i + 1 < lenQ then begin
94.                 printf "%s" ((String.sub spaces 0 offsetLeft) ^ (String.sub spaces 0 (bias + i + 1)) ) ;
95.             end
96.             else begin
97.                 printf "%s" ((String.sub spaces 0 offsetLeft) ^ (simplify !tmpR (bias + i + 1))) ;
98.             end ;
100.             strTmpR.(0) <- sprintf "%d" !tmpR ;
101.             if i + 1 < lenQ then begin
102.                 oneDigit.(0) <- (String.sub strNumer (bias + i + 1) 1) ;
103.                 if  (String.length oneDigit.(0)) > 0 then
104.                     print oneDigit.(0) ;
105.                 strTmpR.(0) <- (strTmpR.(0) ^ oneDigit.(0))
106.             end ;
107.             tmpR := int_of_string strTmpR.(0)
108.         end
109.     done ;
111.     printf "\n" ;
112.     !tmpR ;;
115. let main() =
116.     let cmdArgs = Sys.argv in
117.     if (Array.length cmdArgs < 3 || "-h" = cmdArgs.(1)) then begin
118.         printUsage() ;
119.         exit(1)
120.     end ;
122.     let a = [| 0 |] in
123.     let b = [| 1 |] in
125.     (*
126.     try begin
127.         a.(0) <- int_of_string (cmdArgs.(1)) ;
128.         b.(0) <- int_of_string (cmdArgs.(2)) ;
129.     end
130.     with
131.         | Failure e ->  ( begin
132.                               printf "피제수: %s, 제수: %s\n" (cmdArgs.(1)) (cmdArgs.(2));
133.                               printf "숫자 입력에 오류가 있습니다.\n";
134.                               (* exit(1);  *)
135.                         end; ) ;
136.     *)
137.    
138.     a.(0) <- int_of_string (cmdArgs.(1)) ;
139.     b.(0) <- int_of_string (cmdArgs.(2)) ;
140.     if a.(0) <= 0 then begin
141.         printf "피제수: %d\n" a.(0) ;
142.         printf "피제수는 양의 정수라야 합니다.\n" ;
143.         exit(1)
144.     end
145.     else if b.(0) <= 0 then begin
146.         printf "제수: %d\n" b.(0) ;
147.         printf "제수는 양의 정수라야 합니다.\n" ;
148.         exit(1)
149.     end ;
151.     let q = a.(0) / b.(0) in
152.     let r = a.(0) mod b.(0) in
154.     printf "나눗셈 %d ÷ %d 의 결과: " a.(0) b.(0) ;
155.     printf "몫: %d, " q ;
156.     printf "나머지: %d\n" r ;
157.     print_newline();
159.     let k = makeTable a.(0) b.(0) q in
161.     if k = r then
162.         printf "\n나머지: %d\n" k ;
164.     if k = 0 then begin
165.         printf "%d = %d x %d\n" a.(0) b.(0) q  ;
166.         printf "%d%s %d의 배수(mupltiple)이다.\n" a.(0) (getSuffix a.(0)) b.(0)  ;
167.         printf "%d%s %d의 약수(divisor)이다.\n" b.(0) (getSuffix b.(0)) a.(0)
168.     end
169.     else begin
170.         printf "%d = %d x %d + %d\n" a.(0) b.(0) q r  ;
171.     printf "%d%s %d의 배수(mupltiple)가 아니다.\n" a.(0) (getSuffix a.(0)) b.(0)
172.     end ;;
175. main();;

컴파일> fsc --codepage:949   MakeDivisionTable.fs

실행> MakeDivisionTable.py 500210 61
나눗셈 500210 ÷ 61 의 결과: 몫: 8200, 나머지: 10

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

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