= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 	 	 	 L u cS^M L u 3 2 . d l l 
 
 
 
 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 # M L u O(uf{ 
 
 [ M L u 3 2 . d l l ]   M L u O(uf
 
 
 
         M L u /fz^TL u 8h_^KNv N*NcS^M L u OꁨRR}L u 8h_^TR`R}Y*NL u ibU\^{SNL u |~vO(uM L u S[L u nz^ۏL!jWWSыYыЏLwQ	gV[<h_vnz^W[&{2Nh_	nz^-NSNO(uC + + Θ<hvlʑ0dkYM L u ؏cONY*N~zNe0WL u DnvRcONL u ЏLvƉhVN Qevz^cO(W,g-NR`ыQpevRcOYtQpe[s_8^	Ytvb`
Y!jWI{I{0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # M L u !jWWneN{ 
 
 [ M L u 3 2 . d l l ]   M L u !jWWneN
 
 
 
 1   nz^v N,<h_
 
 
 
         (WM L u neN-NSN	gY*NL u h_h_KN(uRS ;   _0$N*Nޏ~vRS ; ;  h:yMRbvh_(WgbLe
NOQ~g0
 
         h_Nm v a r :  _4Yh:yh_ _YTbvh_AQO(u*g[INv!jWWSϑh_Nu n m v a r :  _4Yh:ySmُyn0m v a r : Tu n m v a r : N(WS_MR!jWWw\O(u0
 
         (WneN-NSNۏLlʑlʑelNC + +  v<OsSkL$N*N/ / TvQ[:NlʑQ[(W NLQbYLKN/ * . . . * / KNvQ[:NlʑQ[0lʑ
N/fnz^v	gHeRFOSNOz^ff0
 
 
 
         >NOYN
 
 
 
         / / ُ/f N*NOP[pprR:Nlʑ
NOgbL
 
         2 + 3 ;                         / / tepeh_
 
         2 . 2 + 3 . 3 ;                 / / [peh_
 
         s i n ( 2 . 2 + 3 . 3 i ) ;     / / 
Ypeh_
 
         2 + 3 ; / *   Nُ̑ _Yޏ~QLlʑ
 
         3 3 3 + 2 2 2 ; 
 
         .   .   .   .   .   .   ; 
 
         5 5 5 - 2 2 2 ; 
 
         * /   s i n ( 2 . 5 ) ; 
 
         e x p ( 2 . ) ; 
 
 
 
 2   z^vgbL
 
 
 
         1uNh_	gN&^	gSpe	gN
N&^SpeM L u (WۏLYte[N	gSpevh_SۏLы
NۏL{0
 
         M L u Sz^gbL
N&^Spevh_0Ygh_N$N*Nޏ~vRS ; ;  ~>\Rh_SgbL
NQ{~g0
 
         FO/fYgh_N~ ~ ~  _4YRe/f	gSh_؏/feSh_/fSы
NgbL<h_YN
 
 
 
         ~ ~ ~   2 + 3 ;                         / / tepeeSh_Sы
NgbL
 
         ~ ~ ~   f 1 ( ) = 2 + 3 ;               / / tepeeSh_Sы
NgbL
 
         ~ ~ ~   2 . 0 + 3 ;                     / / [peeSh_Sы
NgbL
 
         ~ ~ ~   f 2 ( ) = 2 + 3 . 0 ;           / / [peeSh_Sы
NgbL
 
         ~ ~ ~   2 + 3 i ;                       / / 
YpeeSh_Sы
NgbL
 
         ~ ~ ~   f 3 ( ) = 2 + 3 i ;             / / 
YpeeSh_Sы
NgbL
 
 
 
         eSh_f 1 0f 2 Tf 3 SN(WvQNSgbLvh_-N(u0
 
 
 
         SYYgeSh_NaSS! ! !  _4YRыTzsSgbLNNTgbL!jWWe
NQꁨRgbL0<h_YN
 
 
 
         ! ! !   2 + 3 ;                         / / tepeeSh_ыbRzsSgbLNT
NQꁨRgbL
 
         ! ! !   f 1 ( ) = 2 + 3 ;               / / tepeeSh_ыbRzsSgbLNT
NQꁨRgbL
 
         ! ! !   2 . 0 + 3 ;                     / / [peeSh_ыbRzsSgbLNT
NQꁨRgbL
 
         ! ! !   f 2 ( ) = 2 + 3 . 0 ;           / / [peeSh_ыbRzsSgbLNT
NQꁨRgbL
 
         ! ! !   2 + 3 i ;                       / / 
YpeeSh_ыbRzsSgbLNT
NQꁨRgbL
 
         ! ! !   f 3 ( ) = 2 + 3 i ;             / / 
YpeeSh_ыbRzsSgbLNT
NQꁨRgbL
 
 
 
         eSh_f 1 0f 2 Tf 3 SN(WvQNSgbLvh_-N(u0
 
 
 
 3   nz^-Nv!jWW
 
 
 
         ыe\nz^-Nvh_ы:N N*NbY*N!jWWM L u O[k N*N!jWWۏLR0ыeHQnwY!jWW_Ny;N!jWWv^^L u v0 # !jWWp`p`vSM L u 
NO\NUO N*Nh_ы:N0 # !jWW[IN;N!jWW/f:NNNnz^-NvvQN!jWWv:S+R	NTkS_G0R# M O D U L E #  _Yы:N N*Nev!jWWy:NP[!jWWkS_G0R# E N D # V0R;N!jWWvы0sS# M O D U L E # T# E N D # KNvh_[IN:N N*NP[!jWWP[!jWWKN
NL]WY[IN0la# M O D U L E # T# E N D # _{MONh_v _4Y0
 
 
 
         (W!jWW-NN: : :  _4Yvh_ы:NlQ	gh_hQ@\h_bhQ@\Qpe	vQN!jWW0RvQYOvh_GWы:Ny	gh_y	gQpe	vQN!jWWel0@b	g!jWWv!jWWS1uM L u bz^XTc[
NO͑
Y_N
NOы:N0 # !jWW0(Wnz^vNUO0WeS(ucN# U S E # (uS N*N!jWW0
 
 
 
         !jWWneNv<h_YN
 
 
 
             / / USLlʑ!jWW
Tm y M o d u l e 
 
             / * 
 
                 YLlʑ(WT N!jWWneN-Nv@b	gh_^\NT N*N!jWW
 
                 YLlʑN~  _4Yvh_SvQN!jWWvh_@b
 
                 YLlʑ
NN~  _4Yvh_S!jWWvh_@b0
 
             * / 
 
             # M O D U L E #                               / / [IN N*NP[!jWW
 
                 a ( x ) = 1 0 + x ;                       / / y	gQpeS!jWWvh_@b
 
                 ! ! ! b ( ) = 1 0 0 + 1 0 0 i ;           / / y	gQpeS!jWWvh_@bh_/f(WыegbLv
 
                 : : : c ( x ) = x - 5 ;                   / / hQ@\QpeNa!jWWSb,g!jWWGWS
 
                 : : : f ( x ) = a ( x ) + b ( ) ;         / / hQ@\QpeNa!jWWSb,g!jWWGWS
 
                 : : : g ( x ) = a ( x ) + c ( x ) ;       / / hQ@\QpeNa!jWWSb,g!jWWGWS
 
                 # U S E #   M o d u l e 1 ;               / / O(u!jWWM o d u l e 1 
 
                 f f ( 5 ) + g g ( 6 ) ;                   / / Qpef f ( ) Tg g ( ) (W!jWWM o d u l e 1 -N[IN
 
             # E N D #                                     / / P[!jWW[IN~_gS:w
 
             # M O D U L E #                               / / [IN N*NP[!jWW
 
                 a ( x ) = 1 0 - x ;                       / / y	gQpeS!jWWvh_@b
 
                 : : : f f ( x ) = a ( x ) ;               / / hQ@\QpeNa!jWWSb,g!jWWGWS
 
             # E N D #                                     / / P[!jWW[IN~_g
NS:w
 
             f ( 1 ) ;                                     / / ;N!jWW-Nvh_0
 
             f f ( 1 ) ;                                   / / ;N!jWW-Nvh_0
 
 
 
         (WvQN!jWW-NO(u!jWWv<h_YN
 
 
 
             # U S E #   m y M o d u l e ;                 / / sQ.W[U S E _{:N'YQm y M o d u l e /f!jWW
Ty
 
             f ( 2 ) + g ( 3 ) ;                           / / (um y M o d u l e !jWW-N[INvQpe
 
 
 
 4   ыcNvMOnT!k^
 
 
 
         (WM L u -NO(uv  # M O D U L E # 0# E N D # 0# U S E # 0m v a r : 0u n m v a r : 0: : : 0! ! ! 0~ ~ ~   I{y:NыcN(uNnx[ N*Nh_@b(W!jWW0/f&Ty	gQpeI{^\'`0ُNыcN_{MONh_v _4Y	gNcNTeO(u	gNcN
NTeO(uv^N(WO(ue	g N[v!k^	cHQTz^O!k:N
 
 
 
         1 	ыcN# M O D U L E # 0# E N D # 0# U S E # 0m v a r : Tu n m v a r : KNl	gHQTz^SmTO(uFOُNcN_{(Wh_v gMRb N,USrbL0lam v a r : Tu n m v a r : S(W,g!jWWQ	gHe0
 
 
 
         2 	ыcN! ! ! 0~ ~ ~ 
NmTO(uSO(uvQ-Nv N*N0~ ~ ~ h:yh_Sы
NgbL! ! ! h:yh_ыTzsSgbLFONTgbL!jWWe
NQꁨRgbL0
 
 
 
         3 	: : : h:yh_/f N*NhQ@\h_&TR/fy	gh_0
 
 
 
         Ygh_MRl	gO(uNUO N*NыcNR	c:wh_v{|Wы:Ny	gh_h_/feSh_RgbL!jWWe\ꁨRgbL0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # m l u v e r { 
 
 [ M L u 3 2 . d l l ]   m l u v e r ( ) M L u Hr,gOo`0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # e r r { 
 
 [ M L u 3 2 . d l l ]   e r r ( ) hKmQv^ndL u ЏL0
 
 
 
         hKm0ReQpeԏV{|WNx0{|WNxYN
 
 
 
         0 l	gЏL! 
 
         1 h_ЏL! 
 
         2 6rh_Wh_	 Rd! 
 
         3 N~Qpe Rd! 
 
         vQN^0 <PvQNЏL! 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # g e t e r r { 
 
 [ M L u 3 2 . d l l ]   g e t e r r ( F u n N a m e , & F u n C o d e , & F o r H a n d l e ) _L u ЏL0
 
 
 
         F u n N a m e L u W[&{2N0ԏVQQpe
TW[&{2N^*Y\NԏVRQpe
T
N/f N*NW[&{2NNHN_N
NZP0S_ԏV<PI{N2 b3 eԏVzzW[&{2N0
 
         F u n C o d e S_ԏV<PI{N1 eԏVQpeNx0S_ԏV<PI{N2 b3 eԏV0 0
 
         F o r H a n d l e ԏVQh_vSgSgsSыh_e_vSg0F o r H a n d l e = 0 RЏLQvh_] k0
 
 
 
         ԏV<PЏLv{|W0ԏV<P= 0 l	gЏLԏV<P= 1 h_ЏLԏV<P= 2 6rh_ Rd6rh_sSh_-N@b(uvh__NyWh_ԏV<P= 3 h_-N@b(uvN~Qpe RdԏV<P= vQ[<PvQ[{|WЏL0
 
 
 
         OP[f ( : a , b , c , d ) =   s e t e r r [ 6 6 , " a a a " , 2 3 ] ,   a = g e t e r r [ b = " \ [ 1 0 ] " , & c , & d ] ,   o [ b ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s e t e r r { 
 
 [ M L u 3 2 . d l l ]   s e t e r r ( E r r T y p e , F u n N a m e , F u n C o d e ) nL u ЏL0
 
 
 
         E r r T y p e nЏLv{|W0E r r T y p e = 0 l	gE r r T y p e = 1 h_ЏL
NnE r r T y p e = 2 bE r r T y p e = 3 ُ$N*N<P1u|~ꁨRnE r r T y p e = vQ[<PvQ[{|WЏL0
 
         F u n N a m e nQvQpe
TBl O N*NL u W[&{2N^\N2 5 5 	0
 
         F u n C o d e nQpeNx0
 
 
 
         ԏV<Pf a l s e ^lvL u W[&{2N0W@W0E r r T y p e = 2 bE r r T y p e = 3 t r u e bRԏV0
 
 
 
         OP[f ( : a , b , c , d ) =   s e t e r r [ 6 6 , " a a a " , 2 3 ] ,   a = g e t e r r [ b = " \ [ 1 0 ] " , & c , & d ] ,   o [ b ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c l e a r e r r { 
 
 [ M L u 3 2 . d l l ]   c l e a r e r r ( ) ndL u ЏL0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t o p { 
 
 [ M L u 3 2 . d l l ]   s t o p [ ] \PbkQpe0
 
 
 
         Qpev^
NzsS\PbkgbLz^S/f(WgbL[,gh_T\Pbkz^vgbL0
 
         傁zsS\Pbkz^vgbL (Ws t o p [ ] QpeT'}ߍ N*NNh_zsSԏVvQper e t u r n [ ] 0
 
         OY
 
 
 
             { s t o p [ ] , o [ " \Pbkz^" ] } ;   / / QNW[&{2NKNT\Pbkz^gbL
 
             { s t o p [ ] . r e t u r n [ ] , o [ " ,gW[&{2N
NOQ" ] } ;   / / zsS\Pbkz^gbL
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S e t T a l k { 
 
 [ M L u 3 2 . d l l ]   S e t T a l k [ b o o l ] Qc6RQpe0
 
 
 
         :w`QNM L u vE x e M o d u l e ( ) Qpek{[ N*Nh_1\Qh_v<P0S e t T a l k [ ] Qpe(uNn/f&TQh_v<P0S_b o o l :Nt r u e eQh_v<PS_b o o l :Nf a l s e e
NQh_v<Pv0RQ N!kG0RS e t T a l k [ t r u e ] 0laS_b o o l :Nf a l s e ev^
NsQvQNQpevQ0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # C o m M o d u l e { 
 
 [ M L u 3 2 . d l l ]   C o m M o d u l e ( S t r , & n M o d u l e , & h M o d u l e , & e r r 1 , & e r r 2 ) ыnz^:N N*N!jWW0
 
 
 
         S t r nz^W[&{2N
 
         n M o d u l e S_n M o d u l e :N0 e@b	g!jWWv!jWWSꁨRc[M L u RYSen gRvwY!jWWS:N1 NT
NeXFO
N N[ޏ~V:Nk!kgbLQpe
N{/f&TgbLbR!jWWSGWR1 	
NO͑
Y_N
NOы:N0 # !jWW0NUOePS(un M o d u l e  O~M L u  N*NwY!jWWS_{'YN0 	NTv!jWWS\(W!jWWSvW@x
NXN9eS!jWWS^R0傁]c[!jWWSRk!kыnz^MRGWc[ N*NwY!jWWS0M L u ыvY*N!jWW^S/fXvFO
N N[ޏ~V:NYgM L u R N*N!jWW
NbR1\O~~RN N*N!jWWS0QpeԏVen M o d u l e ԏVY*N!jWWv g\!jWWS0 N,ԏV;N!jWWSYg;N!jWW-Nl	gh_1\ԏV	gh_v g\P[!jWWS0
 
         h M o d u l e ԏV!jWWvSg0S_!jWW
N(ue1\(ud e l e t e ( h M o d u l e ) zsS k!jWW&TR\[gNhQ@\Qpeelы0
 
         e r r 1 Te r r 2 ԏVыQMOn<P/f&T	gaINSQNQpevԏV<PԏV<P:N- 1 00 01 03 0- 2 eeaIN	0
 
 
 
         QpeԏV<PvaINSM L u vQQpeC o m M o d u l e vf0
 
 
 
         OP[
 
 
 
 m v a r : 
 
 m a i n ( : a ) = 
 
     t 0 = c l o c k ( ) ,   s = 0 ,   i = 0 , 
 
     w h i l e { + + i < = 1 0 0 0 0 , 
 
         / / R`ы!jWW!jWW	g2 *NQpef :Ny	gQpef f :NhQ@\Qpe
 
         C o m M o d u l e [ " f ( x ) = x + 1 ;   : : : f f ( x , y ) = f ( x ) + y ; " , 0 , & m e , 0 , 0 ] , 
 
         a = H F o r ( " f f " ) ,   / / _Qpef f vSg
 
         s = s + a [ 1 , 1 ] ,       / / R`(uQpef f 
 
         d e l e t e [ m e ]         / / zsS k!jWW
 
     } , 
 
     s ; 
 
 [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 