= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 L u 8h_^
 
 
 
 	 	 	 l u 3 2 . d l l 
 
 
 
 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 # g l o b a l { 
 
 [ l u 3 2 . d l l ]   g l o b a l ( p ) \@\萨R`[ap lbc:NhQ@\R`[a0SY(Wg l o b a l ( t r u e ) , . . .   . . . , g l o b a l ( f a l s e ) KNubvR`[a:NhQ@\R`[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l o c a l { 
 
 [ l u 3 2 . d l l ]   l o c a l ( x ) \hQ@\R`[ap lbc:N@\萨R`[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s i n { 
 
 [ l u 3 2 . d l l ]   s i n ( x ) ck&_Qpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c o s { 
 
 [ l u 3 2 . d l l ]   c o s ( x ) YO&_Qpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # t a n { 
 
 [ l u 3 2 . d l l ]   t a n ( x ) ckRQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a s i n { 
 
 [ l u 3 2 . d l l ]   a s i n ( x ) Sck&_Qpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a c o s { 
 
 [ l u 3 2 . d l l ]   a c o s ( x ) SYO&_Qpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a t a n { 
 
 [ l u 3 2 . d l l ]   a t a n ( x ) SckRQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s q r t { 
 
 [ l u 3 2 . d l l ]   s q r t ( x ) s^e9hQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # e x p { 
 
 [ l u 3 2 . d l l ]   e x p ( x ) cpeQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l n { 
 
 [ l u 3 2 . d l l ]   l n ( x ) 6q[peQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l g { 
 
 [ l u 3 2 . d l l ]   l g ( x ) 8^(u[peQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s i n h { 
 
 [ l u 3 2 . d l l ]   s i n h ( x ) Sfck&_Qpe[ e x p ( x ) - e x p ( - x ) ] / 2 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c o s h { 
 
 [ l u 3 2 . d l l ]   c o s h ( x ) SfYO&_Qpe[ e x p ( x ) + e x p ( - x ) ] / 2 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # t a n h { 
 
 [ l u 3 2 . d l l ]   t a n h ( x ) SfckRQpe[ e x p ( x ) - e x p ( - x ) ] / [ e x p ( x ) + e x p ( - x ) ] 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a b s { 
 
 [ l u 3 2 . d l l ]   a b s ( x ) ~[<PQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # f l o o r { 
 
 [ l u 3 2 . d l l ]   f l o o r ( x ) ԏV
N'YNx v g'Ytepe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c e i l { 
 
 [ l u 3 2 . d l l ]   c e i l ( x ) ԏV
N\Nx v g\tepe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # i t o r { 
 
 [ l u 3 2 . d l l ]   i t o r ( x ) \tepelbcb[pe'Ypelbce	g|^_c1Y0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # r t o i { 
 
 [ l u 3 2 . d l l ]   r t o i ( x ) \[pelbcbtepe'Ypelbce	g]0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c o n { 
 
 [ l u 3 2 . d l l ]   c o n ( x ) Bl
YpevqQm
Ype0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a t a n 2 { 
 
 [ l u 3 2 . d l l ]   a t a n 2 ( x , y ) SckRQpeBlx / y vSckR<P@b(WaP1ux Ty v&{Snx[0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # f m o d { 
 
 [ l u 3 2 . d l l ]   f m o d ( x , y ) Blx / y vYOpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # A { 
 
 [ l u 3 2 . d l l ]   A ( p , . . . ) pe~CQ }X[S0
 
 
 
         QpeHes_ؚFON[YNpe~CQ }ۏLX[SX[SeN[pencvW,g{|WZPhg_euibU\{|W	
 
 
 
         1 ) Y`W[&{2N N~Y`W[&{pe~	
 
 
 
         OP[( : p ) =   p = "       " ,   A [ p , 1 ] = 6 6 ,   A [ p , 1 ] ; 
 
 
 
         2 ) Y` N~	tepepe~
 
 
 
         OP[( : p ) =   p = i n t s s ( " \ & \ [ 5 ] " ) ,   A [ p , 1 ] = 6 6 ,   A [ p , 1 ] ; 
 
 
 
         3 ) Y` N~	[pepe~
 
 
 
         OP[( : p ) =   p = r e a l s s ( " \ & \ [ 5 ] " ) ,   A [ p , 1 ] = 6 6 . 7 7 ,   A [ p , 1 ] ; 
 
 
 
         4 ) Y` N~	l u h
 
 
 
         OP[( : p ) =   p = l u [ 1 , 1 , 1 ] ,   A [ p , 1 ] = 6 6 . 7 7 ,   A [ p , 1 ] ; 
 
 
 
         5 ) R`W[&{2N N~R`W[&{pe~	
 
 
 
         OP[( : p ) =   p = n e w [ s t r i n g , 5 ] ,   A [ p , 1 ] = 6 6 ,   A [ p , 1 ] ; 
 
 
 
         6 ) R`Y~	tepepe~
 
 
 
         OP[( : p ) =   p = n e w [ i n t s , 3 , 5 ] ,   A [ p , 1 , 3 ] = 6 6 ,   A [ p , 1 , 3 ] ; 
 
 
 
         7 ) R`Y~	[pepe~
 
 
 
         OP[( : p ) =   p = n e w [ r e a l s , 3 , 5 ] ,   A [ p , 1 , 3 ] = 6 6 . 7 7 ,   A [ p , 1 , 3 ] ; 
 
 
 
         L u E r r = 1 [a{|W
NSƋ+RL u E r r = 2 Spe
N9SML u E r r = 3 [a
NX[(WL u E r r = 4 CQ }0W@WL u E r r = 5 K<PSpe
N&{TBlL u E r r = 6 pe~~pe^l0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # A 2 { 
 
 [ l u 3 2 . d l l ]   A 2 ( p , . . . ) 
Ypepe~CQ }X[S0
 
 
 
         QpeN[YNpe~CQ }ۏLX[SX[SeN[pencvW,g{|WZPhg_euibU\{|W	
 
 
 
         1 ) Y`W[&{2Nw\O N~Y`
Ypepe~ N*Npe~CQ }`S1 6 *NW[vS_N8 *NU n i c o d e W[&{^	
 
 
 
         OP[( : p ) =   p = " \ [ 3 2 ] " ,   A 2 [ p , 1 ] = 6 6 + 7 7 i ,   A 2 [ p , 1 ] ; 
 
 
 
         2 ) Y` N~	[pepe~w\O N~Y`
Ypepe~ N*Npe~CQ }`S1 6 *NW[vS_N2 *N[pe^	
 
 
 
         OP[( : p ) =   p = r e a l s s ( " \ & \ [ 6 ] " ) ,   A 2 [ p , 1 ] = 6 6 + 7 7 i ,   A 2 [ p , 1 ] ; 
 
 
 
         3 ) R`Y~[pepe~ gT N~_{:N2 w\OR`
Ypepe~sS[pepe~a [ i , j , 2 ] vS_N
Ypepe~a [ i , j ] 	
 
 
 
         OP[( : p ) =   p = n e w [ r e a l s , 3 , 5 , 2 ] ,   A 2 [ p , 1 , 3 ] = 6 6 - 7 7 i ,   A 2 [ p , 1 , 3 ] ; 
 
 
 
         L u E r r = 1 [a{|W
NSƋ+RL u E r r = 2 Spe
N9SML u E r r = 3 [a
NX[(WL u E r r = 4 CQ }0W@WL u E r r = 5 K<PSpe
N&{TBlL u E r r = 6 pe~~pe^l0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # A 3 { 
 
 [ l u 3 2 . d l l ]   A 3 ( p , . . . ) 	N~Tϑpe~CQ }X[S0
 
 
 
         QpeN[YNpe~CQ }ۏLX[SX[SeN[pencvW,g{|WZPhg_euibU\{|W	
 
 
 
         1 ) Y`W[&{2Nw\O N~Y`	N~Tϑpe~ N*Npe~CQ }`S2 4 *NW[vS_N1 2 *NU n i c o d e W[&{^	
 
 
 
         OP[( : p ) =   p = " \ [ 3 6 ] " ,   A 3 [ p , 1 ] = ( 3 $ 5 $ 7 ) ,   A 3 [ p , 1 ] ; 
 
 
 
         2 ) Y` N~	[pepe~w\O N~Y`	N~Tϑpe~ N*Npe~CQ }`S2 4 *NW[vS_N3 *N[pe^	
 
 
 
         OP[( : p ) =   p = r e a l s s ( " \ & \ [ 6 ] " ) ,   A 3 [ p , 1 ] = ( 3 $ 5 $ 7 ) ,   A 3 [ p , 1 ] ; 
 
 
 
         3 ) R`Y~[pepe~ gT N~_{:N3 w\OR`	N~Tϑpe~sS[pepe~a [ i , j , 3 ] vS_N	N~Tϑpe~a [ i , j ] 	
 
 
 
         OP[( : p ) =   p = n e w [ r e a l s , 3 , 5 , 3 ] ,   A 3 [ p , 1 , 3 ] = ( 3 $ 5 $ 7 ) ,   A 3 [ p , 1 , 3 ] ; 
 
 
 
         L u E r r = 1 [a{|W
NSƋ+RL u E r r = 2 Spe
N9SML u E r r = 3 [a
NX[(WL u E r r = 4 CQ }0W@WL u E r r = 5 K<PSpe
N&{TBlL u E r r = 6 pe~~pe^l0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c l o c k { 
 
 [ l u 3 2 . d l l ]   c l o c k ( ) SAmǏSve	Qpe
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s u m { 
 
 [ l u 3 2 . d l l ]   s u m ( @ F , y 1 m i n , y 1 m a x , y 1 d y , y 2 m i n , y 2 m a x , y 2 d y , . . .   . . . ) BlTQpe0
 
 
 
         (ul1 F :NBlTQpeSgy 1 m i n , y 1 m a x , y 1 d y :N,{ N*NSϑvR<P0~<PTSpeXϑ[ R<P< ~<PSpeXϑ> 0 ] O!k{|c0
 
 
 
         (ul2 QpeS͑}0
 
 
 
         OP[
 
 
 
             F ( x , y ) = s i n [ x ] + 0 . 8 - y ; 
 
             s u m ( @ F , 1 . , 2 . , 0 . 0 1 , 2 . , 5 . , 0 . 1 ) ; 
 
 
 
         L u E r r = 1 Spe*Y\L u E r r = 2 ^lh_Sgb~b
N0R͑}QpeL u E r r = 3 8^ϑh_elBlTL u E r r = 4 Spe*Npe
N9SML u E r r = 5 QX[RM1Y%L u E r r = 6 SϑSpe^lL u E r r = 7 BlTQpe^ԏV N*N[pe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # p r o { 
 
 [ l u 3 2 . d l l ]   p r o ( @ F , y 1 m i n , y 1 m a x , y 1 d y , y 2 m i n , y 2 m a x , y 2 d y , . . .   . . . ) BlyQpe0
 
 
 
         (ul1 F :NBlyQpeSgy 1 m i n , y 1 m a x , y 1 d y :N,{ N*NSϑvR<P0~<PTSpeXϑ[ R<P< ~<PSpeXϑ> 0 ] O!k{|c0
 
 
 
         (ul2 QpeS͑}0
 
 
 
         OP[
 
 
 
             F ( x , y ) = s i n [ x ] + 0 . 8 - y ; 
 
             p r o ( @ F , 1 . , 2 . , 0 . 2 , 2 . , 5 . , 0 . 3 ) ; 
 
 
 
         L u E r r = 1 Spe*Y\L u E r r = 2 ^lh_Sgb~b
N0R͑}QpeL u E r r = 3 8^ϑh_elBlyL u E r r = 4 Spe*Npe
N9SML u E r r = 5 QX[RM1Y%L u E r r = 6 SϑSpe^lL u E r r = 7 BlyQpe^ԏV N*N[pe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S e t S t a c k M a x { 
 
 [ l u 3 2 . d l l ]   S e t S t a c k M a x ( n ) ntepeXh g'Ypev0
 
 
 
         (WO(uR_QpeKNMR HQn N[pevvXh08^n v<P
NS_*Y'YS_n S__'YeQpeR_(u}
NOnQL u vXhFOOO|~XhnQُ7hOOz^ЏL-Ne0QpeԏV[EnvXhpev0
 
 
 
         L u E r r = 1 QX[RM1Y%L u E r r = 2 (WQpeR_eO(uQpeL u E r r = 2  tepeSpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c o n s t { 
 
 [ l u 3 2 . d l l ]   c o n s t ( " C o n s t S t r " , C o n s t V a l u e ) bc o n s t ( " C o n s t S t r " , C o n s t V a l u e , b M o d e ) n8^ϑ
 
 
 
         C o n s t S t r 8^ϑ
T&{TL u hƋ&{v}T
Tĉ[&TRыhV~b
N0R8^ϑ0SO(u8^ϑ}T
Tzzve_}T
TOY" C o n s t N a m e : : M y C o n s t " 0
 
         C o n s t V a l u e 8^ϑv<P0S_b M o d e :N;GPe
NO(u<P0
 
         b M o d e ;<PcQ]\Oe_0:wSpeQpec o n s t S	g$N*NSpe	R^ N*N8lEN'`8^ϑel Rd N*N8lEN'`8^ϑd^L u ͑eRYS0b M o d e :Nt r u e R^ N*Nfe'`8^ϑb M o d e :Nf a l s e  Rd N*Nfe'`8^ϑ0fe'`8^ϑOc8^ϑvW,gaIN(Wыh_e
NS9eSvQ<PFOSc o n s t Qpe Rd0
 
         QpeԏV<PvaINYN
 
 
 
             0 nbR0
 
             1 ]X[(W8^ϑ0
 
             2 QX[RM1Y%0
 
             3 
N(uzzW[&{2N\O:N8^ϑ
T0
 
             4 Spe
N&{TBl0
 
             5  (uW[&{2NcQ8^ϑ
T0
 
             6 
N Rd8^ϑ0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # M o d u l e { 
 
 [ l u 3 2 . d l l ]   M o d u l e ( " N a m e S p a c e " : " n a m e 1 " , " n a m e 2 " , . . .   . . . ) R^!jWW}T
Tzz
 
 
 
         Qpe:N(uQpev!jWWR^!jWW}T
Tzz0N a m e S p a c e :Nzz
Ty~b" n a m e 1 " , " n a m e 2 " , . . .   . . . 0!jWW}T
TzzSN_s~b0!jWW}T
Tzz/f Nhhb/f N*NޏV0
 
 
 
         QpeԏV<PvaINYN
 
 
 
             0 R^bR0
 
             1 \  N*NSpe
N:w!jWW}T
Tzz
Ty0
 
             2 
N͑
YR^!jWW}T
Tzz!jWW}T
TzzSR^ N!k0
 
             3 {(uW[&{2NcQ!jWW}T
Tzz
Ty0
 
             4 QX[0
 
             5 }T
Tzz]vQN!jWWO(u0
 
             6 R^v}T
Tzz
N/fzzW[&{2N0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # O u t F u n { 
 
 [ l u 3 2 . d l l ]   O u t F u n ( " f u n 1 " , " f u n 2 " , . . .   . . . ) Q!jWW}T
Tzz-Nvh_
 
 
 
         Qpe:N!jWW}T
TzzQh_0!jWW}T
TzzsS(uQpeO u t F u n v!jWWv}T
Tzz0{(uW[&{2NSpecQh_v
Ty0
 
 
 
         QpeԏV<PvaINYN
 
 
 
             0 d\ObR0
 
             i vQNcktepeMRi - 1 *NSped\ObR,{i *NSped\O1Y%vQNSpe*gۏLd\O0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # H F o r { 
 
 [ l u 3 2 . d l l ]   H F o r ( " F o r N a m e " , b T y p e , & n P a r a , & h M o d u l e , & b P a r a M o d i f y ) _h_vSg0
 
 
 
         F o r N a m e h_v
Ty0SN/f{US
Ty_NSN/fS+T!jWW}T
Tzz&{: : 勿&{S{S:N N*NbY*N: 	v
YBg
Ty0
 
         b T y p e 
Tyv{|W0Ygb T y p e :Nt r u e SS{US
Ty0Ygb T y p e :Nf a l s e 
TySS+T!jWW}T
Tzz&{: : 0:wSpe؞:Nt r u e 0
 
         n P a r a ԏVh_vSpe*Npe0SpeSN:w0
 
         h M o d u l e ԏVh_@b(Wv!jWW0SpeSN:w0
 
         b P a r a M o d i f y ԏV N*N;<Ph:yh_vꁚ[INSpe(WgbLǏz-N/f&TSO9e;wh:ySO9e0SpeSN:w0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # u s i n g { 
 
 [ l u 3 2 . d l l ]   u s i n g ( " N a m e S p a c e 1 " , " N a m e S p a c e 2 " , " N a m e S p a c e : : n a m e " , . . .   . . . ) }T
Tzz
 
 
 
         }T
TzzSb!jWW}T
Tzz0N~Qpe}T
TzzT8^ϑ}T
Tzz	keeQkpO(uu s i n g QpeS{S}T
Tzzv0
 
 
 
         gbLǏQpeu s i n g ( " N a m e S p a c e 1 " , " N a m e S p a c e 2 " , " N a m e S p a c e : : n a m e " , " C o n s t S p a c e " , . . .   . . . ) TYg	g N*N}T
Tzz-NvQpeN a m e S p a c e 2 : : f u n ( x , y ) 
N_QQ}T
TzzvcO(uQpef u n ( x , y ) 1\SNNYg	g N*N8^ϑ}T
Tzz-Nv8^ϑC o n s t S p a c e : : M y C o n s t _N
N_QQ}T
TzzvcO(u8^ϑM y C o n s t 1\SNN0Qpe}T
TzzN8^ϑ}T
TzzvTSQQ N*NsSS0YNR
 
 
 
             u s i n g ( " N a m e S p a c e 1 " , " N a m e S p a c e 2 " , " N a m e S p a c e : : n a m e " , " C o n s t S p a c e " ) ; 
 
             2 + f u n ( 5 , 6 ) + M y C o n s t + 3 ; 
 
 
 
         laYg	g N*N^}T
Tzz-NvQpef u n ( x , y ) \OHQ(uQpeG0Rُy`Q^O(uQpevhQ
TN a m e S p a c e 2 : : f u n ( x , y ) 0Yg	g N*N^}T
Tzz-Nv8^ϑM y C o n s t \OHQ(u8^ϑG0Rُy`Q^O(u8^ϑvhQ
TC o n s t S p a c e : : M y C o n s t 0
 
 
 
         SO(uu s i n g Qpe N!kc[Y*N}T
TzzS_Q N!k(uu s i n g QpeeNMRc[v}T
Tzz\ RdSv}T
Tzz͑e[0(uu s i n g Qpec[v}T
TzzN(W,g!jWW-Nw\O(ubcS݋S(W
NTv!jWW-NO(uu s i n g QpeN
Nq_T0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # f r e e { 
 
 [ l u 3 2 . d l l ]   f r e e ( p ) h ꁨR kv[a0
 
 
 
         Qpef r e e ( p ) S\[ap ꁨRU_Neg(W kh_e k[ap 0Qpef r e e ( p ) N6qԏV[ap h1Y%ԏV0 0(ul>NOYN
 
 
 
             C o n s t O b j ( : s t a t i c , o b j ) = 
 
             { 
 
                 i f { ! o b j ,   o b j = n e w [ . . . ] . f r e e ( ) } ,   / / ,{ N!k(uQpeC o n s t O b j ( ) e(uQpen e w 3u N*N[ao b j v^(uQpef r e e ( ) h(W kh_e k[
 
                 o b j                                                         / / ԏV[ao b j 
 
             } ; 
 
             C o n s t O b j ( ) ;                                             / / k!k(uQpeC o n s t O b j ( ) O_0RT N*N[a
 
             C o n s t O b j ( ) ;                                             / / k!k(uQpeC o n s t O b j ( ) O_0RT N*N[a
 
 
 
         laQpef r e e ( p ) v^
NzsS k[ap /f(W kh_e k[a0v^
N/f@b	gv[aS1uQpef r e e  kُSQN;Nz^TL u ibU\^v0Qpef r e e ( p ) ST k\ϑvpencEe
N\vQ>e(W_s-NO(u0
 
 
 
         laY`Sϑf r e e TQpef r e e ( p ) 
N_TeO(uTeO(u\MNOHes0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o { 
 
 [ l u 3 2 . d l l ]   o ( p 1 , p 2 , p 3 , . . .   . . . ) _[aOo`0
 
 
 
         _[ap 1 , p 2 , p 3 , . . .   . . . vOo`0QpeԏVQvOo`2Nv^0
 
 
 
         o Qpe/f͑}vEeQpegbLe[ap 1 , p 2 , p 3 , . . .   . . . v͑}o Qpe\O!k(u0
 
 
 
         SvcǏo QpeQvQn[a	gtepe0[pe0
Ype0	N~Tϑ0n i l 0h_Sg0;<P0W[&{2N0
 
 
 
         
N/f@b	gv[a/eco QpewQSOgw[avf0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o s e t { 
 
 [ l u 3 2 . d l l ]   o s e t ( p , . . .   . . . ) [aK<P
 
 
 
         p /f N*N[acQpeo s e t ( p , . . .   . . . ) S[[ap K<P0o s e t Qpev(u/fNI{SvsQTv0
 
 
 
         L u E r r = 1 Spe
N9SML u E r r = 2 l	g:N[a͑}QpeL u E r r = 3 ^lv[acL u E r r = 4 Spe
N&{TBl0
 
 
 
         
N/f@b	gv[a/eco s e t QpewQSOgw[avf0
 
 
 
         OP[A 0B /fN~pe~[ai = 2 j = 3 
 
 
 
         A ( 2 , 3 ) = 1 ;         / / vS_N  o s e t [ A , 2 , 3   :   1 ] 
 
 
 
         A . i . j = 1 ;           / / vS_N  o s e t [ A , i , j   :   1 ] 
 
 
 
         A . = A + B ;             / / vS_N  o s e t [ A   :   A + B ] 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o g e t { 
 
 [ l u 3 2 . d l l ]   o g e t ( p , . . .   . . . ) _[av<P0
 
 
 
         p /f N*N[acQpeo g e t ( p , . . .   . . . ) S_[ap v<Pp _NSN/f N*Nꁚ[INQpevcdke\Nu N*NQpe(u0o g e t Qpev(u
NNI{SvsQT0
 
 
 
         QpevԏV<PS[av	gsQf0p /fQpecRQpeԏVQpe(uv<P0
 
 
 
         L u E r r = 1 Spe
N9SML u E r r = 2 l	g:N[a͑}QpeL u E r r = 3 ^lv[acL u E r r = 4 Spe
N&{TBlL u E r r = 5 (uQpeeSpe
N9SML u E r r = 6 ^lvQpeSg0
 
 
 
         
N/f@b	gv[a/eco g e t QpewQSOgw[avf0
 
 
 
         OP[1 [ac0A /f N*NN~pe~[ai = 2 j = 3 
 
 
 
         A ( 2 , 3 ) = A ( 2 , 3 ) + 1 ;         / / vS_N  o s e t [ A , 2 , 3   :   o g e t ( A , 2 , 3 ) + 1 ] 
 
 
 
         A . i . j = A . i . j + 1 ;             / / vS_N  o s e t [ A , i , j   :   o g e t ( A , i , j ) + 1 ] 
 
 
 
         OP[2 Qpec
 
 
 
         a ( x ) = x + 2 ; 
 
         ( : p ) =   p = H F o r ( " a " ) ,   p ( 3 ) ;         / / p ( 3 ) vS_No g e t ( p , 3 ) sS(uQpea ( 3 ) 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # g c { 
 
 [ l u 3 2 . d l l ]   g c ( ) W>W6eƖ0
 
 
 
         zsSkbcv^ kW>W[aʑ>e@b`Szz0QpeԏV0 h:yЏLbR&TRh:y
NAQЏLW>W6eƖhV0
 
 
 
         (WL u -N N*N[a(u N*NchƋcX[>e(W N*NL u penc-NdkebNyُ*Npe:NcT[avc0L u |~-NvY`Sϑ0!jWWSϑ0hQ@\SϑNSck(WЏLvh_vpenc:SSϑ0R`SϑSpencXh	-NX[(W N*Npe[cT N*NhQ@\ae[a/f	gHev&TRƉ:NW>W[aOW>W6eƖhV@bV6e0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # O b j N u m { 
 
 [ l u 3 2 . d l l ]   O b j N u m ( n ) _bnR`[apev0
 
 
 
         S_n > = 1 0 0 enAQvR`[av g'Ypev&TRԏVS_MRR`[avpev0
 
 
 
         8^L u (WhKm0RR`[apevǏNAQv g'Y<Pe\/TRW>W6eƖhVۏLnt0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # C l e a r B u f { 
 
 [ l u 3 2 . d l l ]   C l e a r B u f ( ) nzzW>W[aQ:S0
 
 
 
         R`[au}Tg~_geb(uQped e l ( . . . )  Rd[ae[aOfeX[>e(WW>W[aQ:S-NQpe(uNnzzW>W[aQ:S0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u { 
 
 [ l u 3 2 . d l l ]   l u ( a , b , c , . . . ) ubL u R`penc0
 
 
 
         L u R`pencX[>e(W N*N~'`h-N{yl u hl u h-NSNX[>eNa{|WvpencSbn i l Tl u h0
 
 
 
         ؏SN(uQpen e w [ l u , 5 : a , b , c , . . . ] R^l u hdkeSc[l u hv^v^KR<P0
 
 
 
         l u h/fL u vW,gR`penc{|W0QpeNl u h:NSpeeS[sSSpe O0(WW>W6eƖe N*Nl u h/f	gHevRl u h-Nv@b	g[a/f	gHev
NOW>W6eƖhV@b6eƖ0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # i n t s s { 
 
 [ l u 3 2 . d l l ]   i n t s s ( " . . . " , x 1 , x 2 , x 3 , . . . ) \Y`W[&{2Nlbc:NY` N~tepepe~0
 
 
 
         Spex 1 , x 2 , x 3 , . . . \~pe~KR<PS/ftepeb[pe/f[pe\*beSte	0
 
 
 
         L u E r r = 1 ^lvW[&{2N[aL u E r r = 2 ^lvR<PSpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # r e a l s s { 
 
 [ l u 3 2 . d l l ]   r e a l s s ( " . . . " , x 1 , x 2 , x 3 , . . . ) \Y`W[&{2Nlbc:NY` N~[pepe~0
 
 
 
         Spex 1 , x 2 , x 3 , . . . \~pe~KR<PS/f[pebtepe/ftepe\ꁨRۏL{|Wlbc	0
 
 
 
         L u E r r = 1 ^lvW[&{2N[aL u E r r = 2 ^lvR<PSpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c a s t { 
 
 [ l u 3 2 . d l l ]   c a s t ( D a t a , M y T y p e ) :_6R{|Wlbc0
 
 
 
         :_6R\pencD a t a vibU\{|Wlbc:NM y T y p e {|W0M y T y p e /f N*NtepehƋgy{|Wvpenc0M y T y p e :Ns e l f R\pencD a t a vibU\{|Wlbc:NvQW,g{|W0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d e l { 
 
 [ l u 3 2 . d l l ]   d e l ( x 1 , x 2 , x 3 , . . . ) \R`[a>e0RW>W[aQ:S0
 
 
 
         W>W[aQ:S-Nv[a\1uL u (WTvePۏL k0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d e l e t e { 
 
 [ l u 3 2 . d l l ]   d e l e t e ( x 1 , x 2 , x 3 , . . . ) zsS k[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # n e w { 
 
 [ l u 3 2 . d l l ]   n e w ( t y p e , x 1 , x 2 , x 3 , . . . ) ubev[a0
 
 
 
         t y p e /f N*NtepehƋgyR`penc{|Wx 1 , x 2 , x 3 , . . . /fRYSSpe0
 
 
 
         L u 8h_^-N[INvR`{|W	gl u hl u 	0R`W[&{2Ns t r i n g 	0R`tepepe~i n t s 	TR`[pepe~r e a l s 	OP[
 
 
 
 	 n e w [ l u , 5 ]   ub^:N5 vl u h0  
 
 	 n e w [ l u , 5   :   2 ,   " a a " ,   3 . 3 ]   ub^:N5 vl u hv^KR<P	gYYOvR<PSpe\_eu0  
 
 	 n e w [ s t r i n g , 5 ]   ub^:N5 vR`W[&{2N0  
 
 	 n e w [ s t r i n g , 5 , " a b c " ]   ub^:N5 vR`W[&{2Nv^KR<PR<P/f N*NW[&{2NSpeW[&{2NǏ\*be0  
 
 	 n e w [ s t r i n g , " a b c " ]   ubN@b~W[&{2N^vTvR`W[&{2Nv^KR<P0  
 
 	 n e w [ i n t s , 3 , 5 ]   ubN~pe~0  
 
 	 n e w [ i n t s , 3 , 5 , d a t a :   1 1 , 2 2 , 3 3 ]   ubN~pe~v^KR<PYYOvSpe_eu0  
 
 	 n e w [ i n t s , d a t a :   1 1 , 2 2 , 3 3 ]   ub N~pe~v^KR<Ppe~^sSR<PSpe*Npe0  
 
 	 n e w [ r e a l s , 3 , 5 ]   ubN~pe~w5	0  
 
 	 n e w [ r e a l s , 3 , 5 , d a t a :   1 . 1 , 2 . 2 , 3 . 3 ]   ubN~pe~w5	v^KR<PYYOvSpe_eu0  
 
 	 n e w [ r e a l s , d a t a :   1 . 1 , 2 . 2 , 3 . 3 ]   ub N~pe~v^KR<Ppe~^sSR<PSpe*Npe0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l e n { 
 
 [ l u 3 2 . d l l ]   l e n ( p , & x 1 , & x 2 , & x 3 , . . . ) ԏV[a^0
 
 
 
         QpeԏV[ap v^v^ǏSpex 1 , x 2 , x 3 I{ԏVfYOo`0Yg/fR`tepepe~i n t s 	bR`[pepe~r e a l s 	Rx 1 ԏVpe~~pex 2 , x 3 , . . . ԏVk N~v'Y\0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # n e w t y p e { 
 
 [ l u 3 2 . d l l ]   n e w t y p e ( ) R^evibU\penc{|W0
 
 
 
         QpeԏV N*NevpencibU\{|W/f N*Ntepe	S_{|Wvpencb:NL u Џ{&{b͑}Qpevd\Opee\(uNibU\{|W9SMvЏ{&{͑}Qpe0(uQpen e w t y p e vh_sS/fNibU\{|W9SMvЏ{&{͑}Qpe0
 
 
 
         (W N*Nh_-NY!k(un e w t y p e ( ) eNԏV NypencibU\{|Wbn i l 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # r e t u r n { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   r e t u r n ( x ) zsSԏVQpe
 
 
 
 ~_g{v^zsSԏVh_v<P:Nx 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # i f { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   i f ( x , y 1 , y 2 , . . .   . . . , y n ) $ReQpe
 
 
 
 S_;Sx v<P:NweO!kgbLSy 1 , y 2 , . . .   . . . , y n &TR
NgbLSy 1 , y 2 , . . .   . . . , y n 0
 
 Qpe\	g2 *NSϑSpevQ-N,{ N*NSpe:N;S0
 
 QpevԏV<PeaIN0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # w h i c h { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   w h i c h ( . . .   . . . ) ꁚ[INRkQpe
 
 
 
             w h i c h { 
 
                 ;S1   :   S1 , 
 
                 ;S2   :   S2 , 
 
                 . . .   . . . , 
 
                 ;Sn   :   Sn , 
 
                 :wS
 
             } ; 
 
 
 
         L u NMR_T{v^hKm;Sv<PS_hKm0R;wb[a<P^0 	e{Ndk;w[^vSv^ԏVSv<PYgl	ghKm0R;wR{:wSv<P\O:NԏV<Pdkel	g:wSRNu N*NЏLNx:N0 	0
 
         Qpe\	g2 *NSϑSpe0
 
         OYN_[INN N*NRkQpe
 
 
 
             ( x ) = w h i c h { x > 0 ,   2 * x - 1 , 
 
                         x * x - 1 
 
                     } ; 
 
 
 
         Yg
_QpevԏV<PRQpeSN\O:N N*N	b{QpeO(u0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # w h i l e { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   w h i l e ( . . .   . . . ) _sQpe
 
 
 
         w h i l e _s/f S_W _svQyrp/fHQ$ReagN/f&TbzS_agNbzeRgbL_sSO&TR Q_sSOsS S_agNbzegbL_s 0 S_W _sv_sSO	gS N!k_N
NgbL0
 
         w h i l e _sQpev<h_YN
 
 
 
             w h i l e { x , 
 
                 y 1 , y 2 , 
 
                 . . . , 
 
                 b r e a k ( ) , 
 
                 . . . , 
 
                 c o n t i n u e ( ) , 
 
                 . . . , 
 
                 y n 
 
             } ; 
 
 
 
         vQ-Nx :N;Sy 1 , y 2 , . . . , b r e a k ( ) , . . . , c o n t i n u e ( ) ,   . . . y n :N_sSOS0S_x v<P:Nwb[ax <P^0 	eO!kgbL_sSOSv0Rx v<P:NGPe Q_s0S_gbL0Rb r e a k ( ) QpeeQw h i l e _sgbLw h i l e _sTbvSRS_gbL0Rc o n t i n u e ( ) QpeeԏV0Rw h i l e _sv _YSx Y~~gbL0
 
         (W_sSOS-N_{	gO9e;Sx v<PvSOx v<P:NGP Q_sSO&TR\NueP_s0
 
         Qpe\	g2 *NSϑSpevQ-N,{ N*NSpe:N;S0
 
         QpevԏV<PeaIN0
 
         NN/f N*Nw h i l e _svOP[
 
 
 
             ( : i , k ) = 
 
             { 
 
                 i = 0 , k = 0 , 
 
                 w h i l e { i < = 1 0 0 0 0 0 0 , k = k + i , i + + } ,   / / S_i < = 1 0 0 0 0 0 0 e{k = k + i 6qTi + + 
 
                 k 
 
             } ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # u n t i l { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   u n t i l ( . . .   . . . ) _sQpe
 
 
 
         u n t i l _s/f v0RW _svQyrp/fHQgbL_sSOQ$ReagN/f&TbzS_agNbze Q_sSO&TR~~gbL_sSOsS gbL_sv0RagNbz 0 v0RW _sv_sSO\gbL N!k0
 
         u n t i l _sQpev<h_YN
 
 
 
             u n t i l { x 1 , x 2 , 
 
                 . . . , 
 
                 b r e a k ( ) , 
 
                 . . . , 
 
                 c o n t i n u e ( ) , 
 
                 . . . , 
 
                 y 
 
             } ; 
 
 
 
         u n t i l :NHQgbLT$Rev_sQpe0sSHQgbL_sSOSx 1 , x 2 , . . . , b r e a k ( ) , . . . , c o n t i n u e ( ) , . . . 6qT{;Sy v<Pv0Ry v<P:Nwb[ay <P^0 	e Q_s0S_gbL0Rb r e a k ( ) QpeeQu n t i l _sgbLu n t i l _sTbvSRS_gbL0Rc o n t i n u e ( ) QpeeԏV0Ru n t i l _sv _YSx 1 Y~~gbL0
 
         (W_sSOS-N_{	gO9e;Sy v<PvSOy v<P:Nw Q_sSO&TR\NueP_s0
 
         Qpe\	g2 *NSϑSpevQ-N gT N*NSpe:N;S0
 
         QpevԏV<PeaIN0
 
         NN/f N*Nu n t i l _svOP[
 
 
 
             ( : i , k ) = 
 
             { 
 
                 i = 0 , k = 0 , 
 
                 u n t i l { k = k + i , i + + , i > 1 0 0 0 0 0 0 } ,   / / {k = k + i , i + + S_i > 1 0 0 0 0 0 0 e Q
 
                 k 
 
             } ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # b r e a k { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   b r e a k ( ) QQB\_sQpe
 
 
 
 S(u(Ww h i l e Tu n t i l $N*N_sQpe-N0S_gbL0Rb r e a k ( ) QpeeQw h i l e bu n t i l _sgbLw h i l e bu n t i l _sTbvSR0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c o n t i n u e { 
 
 [ l u 3 2 . d l l ] [ Amzc6R]   c o n t i n u e ( ) ~~_sQpe
 
 
 
 S(u(Ww h i l e Tu n t i l $N*N_sQpe-N0S_gbL0Rc o n t i n u e ( ) QpeeԏV0Rw h i l e bu n t i l _sv _YSY~~gbL0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 # W[&{2N{ 
 
 [ l u 3 2 . d l l ]   W[&{2N
 
 
 
         (WL u -NO(uU n i c o d e [W[&{2N N*N[W[&{	g2 *NW[(u$N*NS_S[IN N*NW[&{2NsS" . . . " h:y N*NW[&{2N0(WL u W[&{2N-N؏SN(uSe`glINW[&{eQ NNyrkW[&{0
 
 
 
         Se`glINW[&{
 
 
 
 \ \   Se`g \    
 
 \ "   S_S "    
 
 \ %   0   
 
 \ a   fJT  
 
 \ b    <h  
 
 \ f   bcu  
 
 \ n   bcL  
 
 \ r   Vf  
 
 \ t   4ls^6Rh&{  
 
 \ v   Wv6Rh&{  
 
 \ &   l	g[^vW[&{0S_lINW[&{MONW[&{2N gMRbeOY" \ & . . .   . . . " 	c:yыhV(WpevLuYX[>eW[&{2Nv^q_TlINW[&{\ [ n ] lINW[&{MONW[&{2NvvQNMOne
NNuNUO\O(u0
 
 \ N N N N N   NaW[&{N N N N N /fW[&{U n i c o d e xv1 0 ۏ6R<PN N N N N _{/f5 *NpeW[OYN N N N N x:N9 vW[&{^Qb\ 0 0 0 0 9   0
 
 \ x N N N N   NaW[&{N N N N /fW[&{U n i c o d e xv1 6 ۏ6R<PN N N N _{/f$N*N1 6 ۏ6RpeW[W[kA 0RF NUS*NpeW[vb__h:y1 0 ۏ6Rpev1 0 0R1 5 	OYU n i c o d e x:N1 1 vW[&{^Qb \ x 0 0 0 B    0
 
 \ [ n ]   n /f N*N1 0 ۏ6Rtepelbcbn  k *Nzz<h&{0  W[&{2N gMRbl	glINW[&{\ & k = 1 W[&{2N gMRb	glINW[&{\ & RS|~W[k = 4 ُyW[&{2N<h_Slbc:Ntepe0[peb
Ypepe~0OY  Nah_-N" \ [ 2 5 6 ] "   /f N*N2 5 6 *NW[&{vzz<h&{W[&{2N0" \ & \ [ 2 5 6 ] "   /f N*N2 5 6  4 *NW[&{vzz<h&{W[&{2N0  
 
 
 
         dNh-N[INvKNYL u l	g[INvQ[vlINW[&{ \  TvQNW[&{v~T/f^lv	0SNwQSe`g \  TS_S "  SǏlINW[&{eQ0
 
 
 
         SYW[&{2NMR	g&{S@ OY@ " . . . \ r \ n . . . " 	\_eulINW[&{0
 
 
 
         OY
 
 
 
             o ( " h e l l o ! \ r \ n W[&{2N" ) ;               / / (uo QpeQW[&{2N
 
             o ( @ " h e l l o ! \ r \ n W[&{2N" ) ;             / / (uo QpeQW[&{2N
 
 
 
         SN(uW[&{2NhƋNa{|Wvpenc<PFO8h_^-Nl	gُebvOP[0
 
 
 
         SN(uW[&{2NX[PNa{|Wvpenc<PYNb\0RvY`pe~0
 
 
 
         L u W[&{2N	gNy{|WL u Y`W[&{2NTL u R`W[&{2N0L u Y`W[&{2NsS(WL u h_-N[INvW[&{2N^/fV[v
NaۏL kFOL u Y`W[&{2N_Nv^^ Nb
NS	L u R`W[&{2N1uQpen e w ub0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 # pe~{ 
 
 [ l u 3 2 . d l l ]   pe~
 
 
 
         L u pe~	gY`TR`$Ny0
 
 
 
         L u R`pe~/fY~vSQpen e w vf0
 
 
 
         L u Y`pe~/f N~vǏ N~Qped\OY`W[&{2Neg[s0O(upe~KNMR{HQ(ulINW[&{" \ [ n ] " [INYvY`zz0
 
 
 
         L u QnNU n i c o d e W[&{pe~0tepepe~0[pepe~0
Ypepe~T	N~Tϑpe~vd\OQpeSQpeA 0A 2 TA 3 vf0_NSNǏpe~Sgvcpe~CQ }YNO
 
 
 
         OP[1 Y`U n i c o d e W[&{pe~
 
 
 
 ( : i , k , s t r ) = 
 
 { 
 
         s t r = " * * \ [ 2 6 ] * * " ,             / / [INW[&{2Ns t r qQ3 0 *NW[&{ُ1\/f N*NU n i c o d e W[&{pe~
 
         k = [ " a " ] ,   k = k [ 0 ] ,             / / (u_W[&{" a " vU n i c o d e <Pv^K<P~k 
 
         i = 0 ,   w h i l e { i < 2 6 ,   s t r [ 2 + i ] = k + + ,   i + + } ,     / / \fSKN/fW[&{zzn:N2 6 *NeW[k
 
         o ( s t r )                                 / / QW[&{pe~s t r 
 
 } ; 
 
 
 
         OP[2 Y`[pepe~W[&{2N_{[INb" \ & . . .   . . . " <h_0
 
 
 
 ( : i , k , a , s ) = 
 
 { 
 
         a = r e a l s s ( " \ & \ [ 1 0 ] " ) ,                           / / [IN4  1 0 *NW[&{vW[&{2Nv^lbc:N[pepe~
 
         k = l e n ( a ) ,                                                 / / _pe~^
 
         i = 0 ,   w h i l e { i < k ,   a ( i ) = 1 . 0 ,   i + + } ,     / / \pe~vk N*NCQ }:N1 . 0 
 
         i = 0 ,   s = 0 . 0 ,   w h i l e { i < k ,   s = s + a ( i + + ) } ,   / / \pe~v@b	gCQ }Rweg
 
         s                                                                 / / QvRTv<P
 
 } ; 
 
 
 
         OP[3 R`[pepe~
 
 
 
 ( : i , j , m , n , a , s ) = 
 
 { 
 
         a = n e w ( r e a l s , 3 , 1 0 ) ,         / / [IN3  1 0 [pepe~w5	
 
         l e n ( a , 0 , & m , & n ) ,               / / _pe~~pe'Y\
 
         s = 0 . 0 ,   i = 0 ,   w h i l e { i < m , 
 
             j = 0 ,   w h i l e { j < n ,   a ( i , j ) = 1 . 0 ,   s = s + a ( i , j ) ,   j + + } ,   / / \pe~vk N*NCQ }:N1 . 0 v^\pe~v@b	gCQ }Rweg
 
             i + + 
 
         } , 
 
         s                                           / / QvRTv<P
 
 } ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 # L u h{ 
 
 [ l u 3 2 . d l l ]   L u h
 
 
 
         L u R`pencX[>e(W N*N~'`h-N{yl u hl u h-NSNX[>eNa{|WvpencSbn i l Tl u h0
 
 
 
         	g$NyelSNubl u h0 Ny/fO(ul u QpeOYl u [ 2 , 3 . 3 , " m e " ] bO(uQpen e w [ l u , 5 : a , b , c , . . . ] R^l u hdkeSc[l u hv^v^KR<P0
 
 
 
         l u h/fL u vW,gR`penc{|W0QpeNl u h:NSpeeS[sSSpe O0(WW>W6eƖe N*Nl u h/f	gHevRl u h-Nv@b	g[a/f	gHev
NOW>W6eƖhV@b6eƖ0
 
 
 
         OP[1 
 
 
 
 ( : a , b ) =   a = l u [ 2 , 3 . 5 , " m e " , l u [ 5 . 5 , t r u e ] ] ,   b = a [ 3 ] ,   o [ a ( 0 ) , "     " , a ( 1 ) , "     " , a ( 2 ) , "     " , b ( 0 ) , "     " , b ( 1 ) , "     " ] ; 
 
 
 
         OP[2 
 
 
 
 ( : a , b ) =   a = n e w [ l u , 4 :   2 , 3 . 5 , " m e " , l u [ 5 . 5 , t r u e ] ] ,   b = a [ 3 ] ,   o [ a ( 0 ) , "     " , a ( 1 ) , "     " , a ( 2 ) , "     " , b ( 0 ) , "     " , b ( 1 ) , "     " ] ; 
 
 
 
         OP[3 
 
 
 
 f ( x : i , k , s ) =   k = l e n ( x ) ,   s = x [ 0 ] ,   i = 1 ,   w h i l e { i < k ,   s = s + x [ i + + ] } ,   s ;         / / Qpef cS N*N N~[av^[[av@b	gCQ }vR
 
 f [ l u ( 1 , 2 , 3 , 4 , 5 ) ] ;                 / / 5 *NtepevR
 
 f [ l u ( 1 . 0 , 2 . 0 , 3 . 0 ) ] ;             / / 3 *N[pevR
 
 f [ l u ( " a b c " , " 1 2 3 " , " x y z " ) ] ; / / 3 *NW[&{2NvR
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 # hƋ&{ʑĉR{ 
 
 [ l u 3 2 . d l l ]   hƋ&{ʑĉR
 
 
 
         1 	hƋ&{Tb	gbSh:y/f N*NQpe&TR/f N*NSϑb8^ϑ
T0
 
 
 
         2 	hƋ&{Tb	gSp .  h:y\hƋ&{T|0R N*NQpeOYa . s i n ( x ) bNu N*NQpe(uOYa . b   vS_N  a ( b ) 0Sϑ/f>f:yfvRǏSp\Nu+Tvo s e t Qpebo g e t Qpe(uySϑQpe(uOYa . b   vS_N  o g e t [ a , b ] a . b = c   vS_N  o s e t [ a , b : c ] 0
 
 
 
         3 	Yg N*NSϑ
TN8^ϑ
TvTR8^ϑ
T_eu0nx[Sϑb8^ϑvzL/fSϑ08^ϑ08^ϑ}T
Tzz0
 
 
 
         4 	YgыhVAQO(u*g[INv!jWWSϑS_G0R N*N*g[INvhƋ&{e\ʑ:N!jWWSϑb8^ϑ0Yg8^ϑ
NX[(W1\ʑ:N!jWWSϑ0Yg8^ϑX[(WFO
NX[(WT
Tv!jWWSϑ\ʑ:N8^ϑ0Yg8^ϑTT
Tv!jWWSϑTeX[(W\OHQʑ:N!jWWSϑ0傁nxOыhV\*g[INvhƋ&{ʑ:N!jWWSϑR^(WMRbыvh_-N\hƋ&{fnx0W[IN:N!jWWSϑv^\O(u N!k0
 
 
 
         5 	Yg/f N*NnfvQpe
TRnx[QpevzL/fSϑQpe0 N~QpebAmzc6RQpe0ꁚ[INh_0N~Qpe0u s i n g c[v}T
Tzz-NvQpe0
 
 
 
         6 	Yg/f N*N}T
Tzz-NvQpenx[QpevzL/f!jWW}T
Tzz0N~Qpe}T
Tzz0
 
 
 
         7 	!jWWy	gh_N N*NlQ	gh_͑
TeOHQ(u,g!jWW-Nvy	gh_0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   
 
 