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

다음은 초등학교에서 배우는 나눗셈 계산표를 만들어주는 Io 소스 코드이다.
Io는 한글 사용에 다소 문제가 있어 소스 코드에 한글을 전혀 사용하지 못하였다.
나눗셈 계산표를 완성하고 나서 약수, 배수 관계를 알려준다.

1. /*
2.  * Filename: makeDivisionTable.io
3.  *
4.  *  Purpose:  Make a division table in a handy written form.
5.  *
6.  *  Execute: io makeDivisionTable.io 12345 32
7.  *                 io makeDivisionTable.io 500210 61
8.  *
9.  *      Date:  2008/05/15
10.  *    Author:  PH Kim   [ pkim ((AT)) scripts.pe.kr ]
11. */
13. printUsage := method(
14.     writeln("Using: io makeDivisionTable.io [numerator] [denominator]")
15.     writeln("Make a division table in a handy written form.")
16. )
18. simplify := method(v, width,
19.     t := "" .. v
20.     if ((t size) > 2 and (t slice(t size - 2) == ".0")) then (
21.         t = t silce(t size - 2)
22.     )
24.     len := t size
25.     if (len < width) then (
26.         t = "               " slice(0, width - len) .. t
27.     )
28.     t
29. )
31. makeTable:= method(numer, denom, quotient,
32.     strNumer := "" .. numer
33.     strDenom := "" .. denom
34.     strQuotient := "" .. quotient
35.     lenN := strNumer size
36.     lenD := strDenom size
37.     lenQ := strQuotient size
38.     offsetLeft := 3 + lenD + 3
39.     spaces := "                                                                                 "
40.     uline  := "_"  repeated(lenN + 2)
41.     sline  := "-" repeated(lenN)
42.     bias := lenN - lenQ
43.     writeln(spaces slice(0, offsetLeft) .. spaces slice(0, bias) .. quotient)
44.     writeln(spaces slice(0, offsetLeft - 2) .. uline)
45.     write("   " .. strDenom .. " ) " .. strNumer)
46.     strTmpR := strNumer slice(0, bias + 1)
47.     tmpR := strTmpR asNumber
48.     tmpSub := 0
49.     oneDigit := nil
51.     for (i, 0, lenQ - 1,
52.         if (strQuotient slice(i, i + 1) == "0") then (
53.             if (i < lenQ - 1) then (
54.                 oneDigit = strNumer slice(bias + i + 1, bias + i + 2)
55.                 write(oneDigit)
56.                 strTmpR = strTmpR .. oneDigit
57.                 tmpR = strTmpR asNumber
58.             )
59.         ) else (
60.             writeln("")
61.             tmpSub = (strQuotient slice(i, i + 1)) asNumber * denom
62.             writeln(spaces slice(0, offsetLeft ) .. simplify(tmpSub, bias + i + 1))
63.             writeln(spaces slice(0, offsetLeft) .. sline)
64.             tmpR = tmpR - tmpSub
65.             if (tmpR == 0 and i < lenQ - 1) then (
66.                 write(spaces slice(0, offsetLeft) .. spaces slice(0, bias + i + 1))
67.             ) else (
68.                 write(spaces slice(0, offsetLeft) .. simplify(tmpR, bias + i + 1))
69.             )
71.             strTmpR = tmpR asString
72.             if (i < lenQ - 1) then (
73.                 oneDigit = strNumer slice(bias + i + 1, bias + i + 2)
74.                 write(oneDigit)
75.                 strTmpR = strTmpR .. oneDigit
76.                 tmpR = strTmpR asNumber
77.             )
78.         )
79.     )
81.     writeln("")
82.     return tmpR
83. )
86. if (args size  < 3) then (
87.     printUsage()
88.     exit(1)
89. )
91. a := (args at(1)) asNumber
92. b := (args at(2)) asNumber
94. if (a <= 0) then (
95.     writeln("Numerator: " .. a)
96.     writeln("Numerator should be a positive integer.")
97.     exit(1)
98. ) elseif (b <= 0) then (
99.     writeln("Denominator: " .. b)
100.     writeln("Denominator should be a positive integer.")
101.     exit(1)
102. )
104. q := (a / b) floor
105. r := a % b
106. write("The result of " .. a .. " / " .. b .. " is ")
107. write("quotient " .. q .. ", and ")
108. writeln("trmainder " .. r)
109. writeln("")
111. k := makeTable(a, b, q)
112. if (k == r)  then (
113.     writeln("\nThe remainder is " .. k)
114. )
116. if (k == 0) then (
117.     writeln(a .. " = " .. b .. " x " .. q)
118.     writeln(a .. " is a mupltiple of " .. b .. ".")
119.     writeln(b .. " is a divisor of " .. a .. ".")
120. ) else (
121.     writeln(a .. " = " .. b .. " x " .. q .. " + " .. r)
122.     writeln(a .. " is not a mupltiple of " .. b .. ".")
123. )

실행> io makeDivisionTable.io 500210 61

The result of 500210 / 61 is quotient 8200, and trmainder 10

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

The remainder is 10
500210 = 61 x 8200 + 10
500210 is not a mupltiple of 61.

이 저작물은 크리에이티브 커먼즈 코리아 저작자표시-비영리-변경금지 2.0 대한민국 라이센스에 따라 이용하실 수 있습니다.