{VERSION 6 0 "IBM INTEL NT" "6.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 
0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "# Integer multiplica
tion (base 10, using arrays)." }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "im
ult := proc(A::Array,B::Array)" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 29 " \+
 local m,n,i,j,C,carry,prod;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 48 "  m
 := ArrayNumElems(A);  n := ArrayNumElems(B);" }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 23 "  C := Array(1..m+n);  " }}{PARA 0 "> " 0 "" 
{MPLTEXT 1 0 13 "  carry := 0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 22 " \+
 for i from 1 to m do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 24 "    for j \+
from 1 to n do" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 43 "      prod := C[i
+j-1] + A[i]*B[j] + carry;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 30 "     \+
 C[i+j-1] := prod mod 10;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 32 "      \+
carry := floor(prod/10);  " }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "    e
nd do;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "    C[i+n] := carry;  car
ry := 0;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 9 "  end do;" }}{PARA 0 "> \+
" 0 "" {MPLTEXT 1 0 77 "  if C[m+n] = 0 then return Array([seq(C[i],i=
1..m+n-1)]); else return C; fi;" }}{PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "e
nd;" }}{PARA 12 "" 1 "" {XPPMATH 20 "6#>%&imultGf*6$'%\"AG%&ArrayG'%\"
BGF)6)%\"mG%\"nG%\"iG%\"jG%\"CG%&carryG%%prodG6\"F4C(>8$-%.ArrayNumEle
msG6#9$>8%-F96#9%>8(-F)6#;\"\"\",&F7FFF=FF>8)\"\"!?(8&FFFFF7%%trueGC%?
(8'FFFFF=FMC%>8*,(&FB6#,(FLFFFPFFFF!\"\"FF*&&F;6#FLFF&F@6#FPFFFFFIFF>F
U-%$modG6$FS\"#5>FI-%&floorG6#,$*&#FFF\\oFFFSFFFF>&FB6#,&FLFFF=FFFI>FI
FJ@%/&FB6#FGFJO-F)6#7#-%$seqG6$&FBFen/FL;FF,(F7FFF=FFFFFXOFBF4F4F4" }}
}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A := Array([1,2,3]);" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"AG-%'RTABLEG6%\")Gs_O-%'VECTORG6#7
%\"\"\"\"\"#\"\"$%&ArrayG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 
20 "B := Array([3,2,1]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%'R
TABLEG6%\")os_O-%'VECTORG6#7%\"\"$\"\"#\"\"\"%&ArrayG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "a := 321;  b := 123;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"aG\"$@$" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%\"bG\"$B\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "a*b;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"&$[R" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 11 "imult(A,B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTA
BLEG6%\")3t_O-%'VECTORG6#7'\"\"$\"\")\"\"%\"\"*F+%&ArrayG" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "A := Array([9,9,9]);" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#>%\"AG-%'RTABLEG6%\")[t_O-%'VECTORG6#7%\"\"*F-F-
%&ArrayG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "B := Array([9,9
,9]);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%'RTABLEG6%\"))QFl$-%'
VECTORG6#7%\"\"*F-F-%&ArrayG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 
0 11 "imult(A,B);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#-%'RTABLEG6%\")Gu
_O-%'VECTORG6#7(\"\"\"\"\"!F,\"\")\"\"*F.%&ArrayG" }}}{EXCHG {PARA 0 "
> " 0 "" {MPLTEXT 1 0 20 "a := 999;  b := 999;" }}{PARA 11 "" 1 "" 
{XPPMATH 20 "6#>%\"aG\"$***" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG
\"$***" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "a*b;" }}{PARA 11 "
" 1 "" {XPPMATH 20 "6#\"',!)**" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 
1 0 42 "A := Array([1,2,3,4]);  B := Array([0,9]);" }}{PARA 11 "" 1 "
" {XPPMATH 20 "6#>%\"AG-%'RTABLEG6%\")ou_O-%'VECTORG6#7&\"\"\"\"\"#\"
\"$\"\"%%&ArrayG" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"BG-%'RTABLEG6%
\")3v_O-%'VECTORG6#7$\"\"!\"\"*%&ArrayG" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 22 "a := 4321;  b := 90;  " }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%\"aG\"%@V" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"bG\"#!*" }}}
{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 11 "imult(A,B);" }}{PARA 11 "" 
1 "" {XPPMATH 20 "6#-%'RTABLEG6%\")[6nN-%'VECTORG6#7(\"\"!\"\"*\"\")F-
F-\"\"$%&ArrayG" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 4 "a*b;" }}
{PARA 11 "" 1 "" {XPPMATH 20 "6#\"'!*))Q" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 0 "" }}}}{MARK "15 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 
1 1 }{PAGENUMBERS 0 1 2 33 1 1 }{RTABLE_HANDLES 36527228 36527268 
36527308 36527348 36527388 36527428 36527468 36527508 35671148 }
{RTABLE 
M7R0
I5RTABLE_SAVE/36527228X*%)anythingG6"6"[gl!!%!!!"$"$"""""#""$F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527268X*%)anythingG6"6"[gl!!%!!!"$"$""$""#"""F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527308X*%)anythingG6"6"[gl!!%!!!"&"&""$"")""%""*F'F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527348X*%)anythingG6"6"[gl!!%!!!"$"$""*F'F'F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527388X*%)anythingG6"6"[gl!!%!!!"$"$""*F'F'F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527428X*%)anythingG6"6"[gl!!%!!!"'"'"""""!F("")""*F*F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527468X*%)anythingG6"6"[gl!!%!!!"%"%"""""#""$""%F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/36527508X*%)anythingG6"6"[gl!!%!!!"#"#""!""*F&
}
{RTABLE 
M7R0
I5RTABLE_SAVE/35671148X*%)anythingG6"6"[gl!!%!!!"'"'""!""*"")F)F)""$F&
}