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

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

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

1. (*
2.  *  Filename: MakeDivisionTable.fs
3.  *
4.  *  Purpose:  Make a division table in a handy written form.
5.  *
6.  *  Compile: fsc --codepage:949 MakeDivisionTable.fs
7.  *
8.  *  Execute: MakeDivisionTable 12345 32
9.  *           MakeDivisionTable 500210 61
10.  *           MakeDivisionTable 234 55
11.  *
12.  *     Date:  2010/07/15
13.  *   Author:  PH Kim   [ pkim ((AT)) scripts.pe.kr ]
14.  *)
16. #light
18. exception RuntimeError of string
19. exception ValueError of string
21. let BASE36 = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
22. let SPACE = "                                                          "
23. let ULINE = "__________________________________________________________"
24. let HIPHEN = "----------------------------------------------------------"
26. let println s =
27.     printfn "%O" s
29. let print s =
30.     printf "%O" s
32. let printUsage dummy =
33.     // print("Using: MakeDivisionTable [numerator] [denominator]")
34.     // print("Make a division table in a handy written form.")
35.     println "사용법: MakeDivisionTable [피제수] [제수]"
36.     println "손으로 작성한 형태의 나눗셈 표를 만들어준다."
38. let simplify v width =
        let mutable t = sprintf "%d" v
39.     if (t.EndsWith ".0") then
40.         t <- t.Substring(0, t.Length - 2)
41.     let slen = t.Length
42.     if slen < width then
43.         t <- SPACE.Substring(0, width - slen) + t
44.     t
46. let getSuffix v =
47.     let mutable t = v % 10
48.     let mutable suffix = "은"
49.     if "2459".IndexOf(sprintf "%d"  t) >= 0 then
50.         suffix <- "는"
51.     suffix
53. let makeTable numer denom quotient =
54.     let strNumer = sprintf "%d" numer
55.     let strDenom = sprintf "%d" denom
56.     let strQuotient = sprintf "%d" quotient
57.     let lenN = strNumer.Length
58.     let lenD = strDenom.Length
59.     let lenQ = strQuotient.Length
60.     let offsetLeft = 3 + lenD + 3
61.     let spaces = "                                                                                 "
62.     let mutable uline  = ULINE.Substring(0, lenN + 2)
63.     let mutable sline  = HIPHEN.Substring(0, lenN)
64.     let bias = lenN - lenQ
66.     println(spaces.Substring(0, offsetLeft) + spaces.Substring(0, bias) + sprintf "%d" quotient)
67.     println(spaces.Substring(0, offsetLeft - 2) + uline)
68.     print("   " + strDenom + " ) " + strNumer)
70.     let mutable strTmpR = strNumer.Substring(0, bias + 1)
71.     let mutable tmpR = int strTmpR
72.     let mutable tmpSub = 0
73.     let mutable oneDigit = ""
75.     for i in 0..(lenQ - 1) do
76.         if (strQuotient.Substring(i, 1)) = "0" then
77.             if i + 1 < lenQ then
78.                 oneDigit <- (strNumer.Substring(bias + i + 1, 1))
79.                 print(oneDigit)
80.                 strTmpR <- strTmpR + oneDigit
81.                 tmpR <- int strTmpR
82.         else
83.             println ""
84.             tmpSub <- (int (strQuotient.Substring(i, 1))) * denom
85.             println(spaces.Substring(0, offsetLeft) + simplify tmpSub  (bias + i + 1))
86.             println(spaces.Substring(0, offsetLeft) + sline)
87.             tmpR <- tmpR - tmpSub
89.             if tmpR = 0 && i + 1 < lenQ then
90.                 print(spaces.Substring(0, offsetLeft) + spaces.Substring(0, bias + i + 1))
91.             else 
92.                 print(spaces.Substring(0, offsetLeft) + (simplify tmpR (bias + i + 1))) 
94.             strTmpR <- sprintf "%d" tmpR
95.             if i + 1 < lenQ then
96.                 oneDigit <- (strNumer.Substring(bias + i + 1, 1))
97.                 if  (oneDigit.Length) > 0 then
98.                     print(oneDigit)
99.                 strTmpR <- strTmpR + oneDigit
100.             tmpR <- int strTmpR
102.     println ""
103.     tmpR
106. // Begin here
107. let cmdArgs = System.Environment.GetCommandLineArgs()
108. if (Array.length cmdArgs < 3 || "-h" = cmdArgs.[1]) then
109.     printUsage 0
110.     exit(1)
112. let mutable a = 0
113. let mutable b = 1
115. try
116.     a <- int (cmdArgs.[1])
117.     b <- int (cmdArgs.[2])
118. with
119.     | ValueError e -> printfn "피제수: %s, 제수: %s" (cmdArgs.[1]) (cmdArgs.[2]);
120.                       printfn "숫자 입력에 오류가 있습니다.";
121.                       exit(1)
123. if a <= 0 then
124.     printf "피제수: %d" a
125.     printf "피제수는 양의 정수라야 합니다."
126.     exit(1)
127. elif b <= 0 then
128.     printf "제수: %d" b
129.     printf "제수는 양의 정수라야 합니다."
130.     exit(1)
132. let q = a / b
133. let r = a % b
135. printf "나눗셈 %d ÷ %d 의 결과: " a b
136. printf "몫: %d, " q
137. printfn "나머지: %d" r
138. printfn ""
140. let k = makeTable a b q
142. if k = r then
143.     printfn "\n나머지: %d" k
145. if k = 0 then
146.     printfn "%d = %d x %d" a b q
147.     printfn "%d%s %d의 배수(mupltiple)이다." a (getSuffix a) b
148.     printfn "%d%s %d의 약수(divisor)이다." b (getSuffix b) a
149. else
150.     printfn "%d = %d x %d + %d" a b q r
151.     printfn "%d%s %d의 배수(mupltiple)가 아니다." a (getSuffix a) b

컴파일> 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)가 아니다.