= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 	 	 L u |~ibU\R`^L u S y s t e m 3 2 . d l l 
 
 
 
 = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 # L u S y s t e m O(uf{ 
 
 [ L u S y s t e m 3 2 . d l l ]   L u S y s t e m O(uf
 
 
 
         L u S y s t e m 3 2 . d l l /f N*NL u |~ibU\R`^S+T NNX:_L u |~RvQpe0[|~Qn{|WvibU\NS NNeXpenc{|WI{I{0L u S y s t e m 
NN/f[L u |~vibEQf(WNo:yL u /fgfibEQvQRv,g_\	g,gAQ(u7beO0WmRPW[xQ0~g0{|I{ؚ~vpenc~gFOL u AQN[sُN_[fVL u S y s t e m _N/fz(u7bgsOv~Kb]wQ0
 
 
 
         ;Nvpenc{|W	g
 
 
 
         l u u |~Qn{|Wl u hvibU\{|W0
 
 
 
         S t r i n g |~Qn{|WW[&{2Ns t r i n g vibU\{|W0O(uU n i c o d e W[&{2N0SNO(uckRh_0
 
 
 
         d i c t W[xQ0
 
 
 
         s t r u c t ~g0
 
 
 
         c l a s s {|0
 
 
 
         f i l e eN{|W0
 
 
 
         (WL u S y s t e m -NvQpe/fǏN~Qpe}T
Tzz s y s  Qv@b	gQpeGWwQ	g{|<O s y s : : l u f u n ( . . . )  v<h_0O(u! ! ! u s i n g ( " s y s " ) ; S{SL u S y s t e m -NvQpe0
 
 
 
         L u S y s t e m vMR؏
N[U;N(uego:yL u |~vSibEQ'`FO NN[(uvRbQpeO
NemRۏegNUON_NSN9hnc mRb9eۏQpevR"kΏ'Y[~QTy9eۏv^
 
 
 
         L u S y s t e m vnNx/f _>evnNxN}h t t p : / / w w w . f o r c a l . n e t / x i a z a i / l u 1 / l u 1 c o d e . r a r 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u hl u u { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u hl u u 
 
 
 
         l u u /f|~Qn{|Wl u hvibU\{|W0l u u h/f N*NSvcX[Sv~'`hSNX[>er^NavL u penc0
 
 
 
         1 	e^l u u h
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 n e w [ l u u , 5   :   1 , 1 . 2 , " a b c " ] . o [ ] ;         / / (uQpen e w ubl u u h^:N5 	g	N*NRYSpenc0Qpeo (uNQl u u h0
 
 
 
         (uQpel u u ubl u u hf:NeO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 l u u [ 1 + 2 i , 1 . 2 , " a b c " ] . o [ ] ;                   / / (uQpel u u ubl u u h^:N3 	g	N*NRYSpenc0Qpeo (uNQl u u h0
 
 
 
         2 	CQ }X[S
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = l u u [ 1 + 2 i , 1 . 2 , " a b c " ] ,   a [ 1 ] = a [ 2 ] + " l u u u u " ,   o [ a ] ; 
 
 
 
         3 	l u u hޏcS(uRS+ ޏc$N*Nl u u hb\ N*N{USpeR0Rl u u hvMRbbTb
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , b ) =   a = l u u [ 1 , 1 , 1 ] ,   b = l u u [ 2 , 2 ] ,   o [ a + b ,   3 + a ,   a + 3 ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : l u u { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : l u u [ . . . ] ubl u u h[av^RYS0[avW,g{|W:Nl u ibU\{|W:Nl u u 0
 
 
 
   s y s : : l u u tepe8^ϑ(u(WQpen e w [ s y s : : l u u , . . .   . . . ] -N3ul u u h[a0[avW,g{|W:Nl u ibU\{|W:Nl u u 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   n e w Qpe/f͑}QpeFOvc(uNl u vn e w Qpe0(uN3ul u u h[a[avW,g{|W:Nl u ibU\{|W:Nl u u 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   + { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   + ͑}Џ{&{+ 0ޏc$N*Nl u u hb\ N*N{USpeR0Rl u u hvMRbbTb0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   l e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   l e n Qpe/f͑}QpeFOvc(uNl u vl e n Qpe0ԏVl u u hv^0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   o Qpe/f͑}Qpe0Ql u u hvQ[0ЏL1 
NSƋ+R[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   o s e t Qpe/f͑}QpeFOvc(uNl u vo s e t Qpe0a /f N*Nl u u hRgbLb_Ya [ i ] = 2 vK<PSe\(uQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # l u u   o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   l u u   o g e t Qpe/f͑}QpeFOvc(uNl u vo g e t Qpe0a /f N*Nl u u hRgbLb_Ya [ i ] vSe\(uQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # W[&{2NS t r i n g { 
 
 [ L u S y s t e m 3 2 . d l l ]   W[&{2NS t r i n g 
 
 
 
         S t r i n g /f|~Qn{|WW[&{2Ns t r i n g vibU\{|W0
 
 
 
 1 	ubS t r i n g 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 n e w [ S t r i n g , 5   :   " a b c " ] . o [ ] ;         / / (uQpen e w ubS t r i n g ^:N5   v^(u N*NW[&{2NۏLRYS0Qpeo (uNQS t r i n g v^ԏVQvW[&{pev0
 
 
 
 (uQpeS t r i n g ubS t r i n g f:NeO[E
NQpeubNSW[&{2Nv N*NoR,g0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 S t r i n g [ " a b c " ] . o [ ] ;                         / / (uQpeS t r i n g ubS t r i n g _{(u N*NW[&{2N\O:NRYSpenc0
 
 
 
 laQpes t r c p y \SW[&{2N
Y6R0RvhW[&{2NFO
NOԏV N*Ne2N0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = S t r i n g [ " " ] ,   s t r c p y [ a , " a b c " ] ,   o [ a ] ; 
 
 
 
 2 	CQ }X[SSvc[W[&{2NZPf9e0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n 1 ( : a ) =   a = S t r i n g [ " a b c " ] ,   a [ 1 ] = a [ 2 ] + 1 ,   o [ a ] ;     / / R`W[&{2N
 
 m a i n 2 ( : a ) =   a = " a b c " ,                   a [ 1 ] = a [ 2 ] + 1 ,   o [ a ] ;     / / Y`W[&{2N
 
 
 
 3 	S t r i n g Q:S'Y\T^
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = n e w [ S t r i n g , 5   :   " a b c " ] ,   o { " W[&{2NQ:S= " , l e n ( a ) , "     W[&{2N^= " , s t r l e n ( a ) , " \ r \ n " } ; 
 
 
 
 4 	S t r i n g ޏc(uRS+ ޏc$N*NW[&{2NԏV N*Ne2N0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 o { S t r i n g [ " a b c " ] + S t r i n g [ " d e f " ] } ; 
 
 o { S t r i n g [ " a b c " ] + " d e f " } ; 
 
 
 
 5 	S t r i n g ޏc(uQpes t r c a t ޏc$N*NW[&{2N
NԏVe2N0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : m e ) = 
 
     m e = S t r i n g [ " a b c " ] ,   p r i n t f [ " % s \ r \ n " , m e ] ,     / / Qm e 
 
     s t r c a t ( m e , " d e f " ) ,   p r i n t f [ " % s \ r \ n " , m e ] ;     / / Qm e 
 
 
 
 6 	'Y\QNbc(uꁚ[INQpe[s
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 S w a p c a s e ( s t r : i , k , c h , a , z , A , Z ) = 
 
     k = " a z A Z " ,   a = k [ 0 ] ,   z = k [ 1 ] ,   A = k [ 2 ] ,   Z = k [ 3 ] ,     / / _W[&{a z A Z vA S C I I <P
 
     k = s t r l e n [ s t r ] ,   i = 0 , 
 
     w h i l e { i < k ,   c h = s t r ( i ) , 
 
         w h i c h { c h > = a   &   c h < = z   :   s t r ( i ) = c h - a + A , 
 
                     c h > = A   &   c h < = Z   :   s t r ( i ) = c h - A + a , 
 
                     c h } , 
 
         i + + 
 
     } , 
 
     s t r ; 
 
 S w a p c a s e [ " a b c   8 8   JUJU  D E F " ] . o [ ] ; 
 
 
 
 7 	<h_SW[&{2N(us p r i n t f Qpe[s
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , b , k , i , s ) = 
 
     a = S t r i n g [ " " ] ,   s p r i n t f [ a , " % 2 0 s " , " a b c " ] ,     o [ a , " \ r \ n " ] ,     / / V[^S[P]
NY(uzz<heP
 
     a = S t r i n g [ " " ] ,   s p r i n t f [ a , " % - 2 0 s " , " a b c " ] ,   o [ a , " \ r \ n " ] ,     / / V[^][PS
NY(uzz<heP
 
     a = S t r i n g [ " " ] ,   b = " a b c " ,   k = [ 2 0 - s t r l e n ( b ) ] / 2 ,   s = n e w [ S t r i n g , k + 1 ] ,   i = 0 ,   w h i l e { i < k , s [ i + + ] = 3 2 } , 
 
     s p r i n t f [ a , " % s % s % s " , s , b , s ] ,   o [ a , " \ r \ n " ] ;     / / V[^-N[P$N
NY(uzz<heP
 
 
 
 8 	SW[&{2N$Nzz<h
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , j , k ) =     a = [ "       a s d     JUJU    d e f       " ] ,   i = s t r s p n ( a , "   \ r \ n \ t " ) ,   s t r r e v ( a ) ,   j = s t r l e n ( a ) - s t r s p n ( a , "   \ r \ n \ t " ) - 1 ,   s t r r e v ( a ) ,   o { s u b s t r [ a , i , j ] } ; 
 
 
 
 9 	/f&TNs t a r t  _4Y
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =     a = [ "       s t a r t   JUJU    d e f       " ] ,   s t r s p n ( a , "   \ r \ n \ t " ) = = s t r s t r ( a , " s t a r t " ) ; 
 
 
 
 1 0 	/f&ThQ\Q
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =     a = [ "       s t a r t   w s x     d e f       " ] ,   s t r s p n ( a , " a b c d e f g h i j k l m n o p q r s t u v w x y z   \ r \ n \ t " ) < 0 ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : S t r i n g { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : S t r i n g [ " a b c " ] ubS t r i n g [av^  (u N*NW[&{2NRYS0[avW,g{|W:Ns t r i n g ibU\{|W:NS t r i n g 0ЏL1 
NSƋ+RvRYSSpe0  
 
 
 
   s y s : : S t r i n g tepe8^ϑ(u(WQpen e w [ s y s : : S t r i n g , . . .   . . . ] -N3uS t r i n g [a0[avW,g{|W:Ns t r i n g ibU\{|W:NS t r i n g 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   n e w Qpe/f͑}QpeFOvc(uNs t r i n g vn e w Qpe0(uN3uS t r i n g [a[avW,g{|W:Ns t r i n g ibU\{|W:NS t r i n g 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   + { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   + ͑}Џ{&{+ FOvc(uNs t r i n g v+ Qpe0ޏc$N*NS t r i n g 0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   l e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   l e n Qpe/f͑}QpeFOvc(uNs t r i n g vl e n Qpe0ԏVS t r i n g v^0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   o Qpe/f͑}Qpe0QS t r i n g vQ[0ЏL1 
NSƋ+R[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   o s e t Qpe/f͑}QpeFOvc(uNs t r i n g vo s e t Qpe0a /f N*NS t r i n g RgbLb_Ya [ i ] = 2 vK<PSe\(uQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # S t r i n g   o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   S t r i n g   o g e t Qpe/f͑}QpeFOvc(uNs t r i n g vo g e t Qpe0a /f N*NS t r i n g RgbLb_Ya [ i ] vSe\(uQpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : a s t r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : a s t r 
 
 (ul1 a s t r [ k ] 0k :N N*NtepeԏV N*Nk W[vUSW[W[&{2NRYS:N N*Nzz2N0
 
 (ul2 a s t r [ s t r ] 0s t r :N N*NSW[W[&{2Nlbc:NUSW[W[&{2Nv^ԏV2N0
 
 ЏL1 Spe^l2 QX[0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : u s t r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : u s t r 
 
 (ula s t r [ s t r ] 0s t r :N N*NUSW[W[&{2Nlbc:NSW[W[&{2Nv^ԏV2N0
 
 ЏL1 Spe^l2 QX[0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # a s t r i n g   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   a s t r i n g   o Qpe/f͑}Qpe0Nc:yOo`  * * * A S C I I W[&{2N{HQ(uQpeu s t r lbc:NU n i c o d e W[&{2NTMb>f:y* * *   
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r l e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r l e n [ s t r ]   ԏVW[&{2Ns t r v^0l e n ( s t r ) ԏVW[&{2Ns t r vQ:S'Y\0ЏL1 
NSƋ+R[a0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r c p y { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r c p y [ s t r 1 , s t r 2 ] 
 
 
Y6RW[&{2Ns t r 2 0Rs t r 1 0S_s t r 1 /fR`W[&{2NeYgQ:S
NY(uOꁨRXRQ:S0Qpe
NubevW[&{2N  NԏVs t r 1 0
 
 ЏL1 Spe^l2 QX[3 Y`Q:S
NY(u0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r c a t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r c a t [ s t r 1 , s t r 2 ] 
 
 \W[&{2Ns t r 2 ޏc0Rs t r 1 vTb0S_s t r 1 /fR`W[&{2NeYgQ:S
NY(uOꁨRXRQ:S0Qpe
NubevW[&{2N  NԏVs t r 1 0
 
 ЏL1 Spe^l2 QX[3 Y`Q:S
NY(u0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s u b s t r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s u b s t r [ s t r , b e g i n , e n d ] 
 
 ԏVW[&{2Ns t r vP[W[&{2Nb e g i n Te n d c[NP[W[&{2NvMOn0Ygb e g i n be n d :N- 1 b'YNW[&{2N^SW[&{2Nv gT N*NW[&{MOndkeb e g i n > e n d Se n d Tb e g i n KNW[&{2NvS^W[&{2N0
 
 
 
 ЏL1 Spe^l2 QX[0
 
 
 
 OP[1 s u b s t r [ " a b c d e f g " , - 1 , 3 ] ~gg f e d 
 
 OP[2 s u b s t r [ " a b c d e f g " , 3 , - 1 ] ~gd e f g 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r c h r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r c h r [ s t r , c ] (WW[&{2Ns t r -N[MO!kQsvW[&{c tepe	ԏVc (Ws t r -NvNhv[OPyϑ	1Y%eԏV- 1 0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r r c h r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r r c h r [ s t r , c ] (WW[&{2Ns t r -N[MO gTQsvW[&{c tepe	ԏVc (Ws t r -NvNhv[OPyϑ	1Y%eԏV- 1 0ЏL1 Spe^l0    
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r c m p { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r c m p [ s t r 1 , s t r 2 ] 	cW[kz^[W[&{2NۏLk0s t r 1 < s t r 2 ԏV<P< 0 s t r 1 = s t r 2 ԏV<P= 0 s t r 1 > s t r 2 ԏV<P> 0 0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r p b r k { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r p b r k [ s t r 1 , s t r 2 ] (WW[&{2Ns t r 1 -N[MOW[&{Ɩs t r 2 -N!kQsvg*NW[&{ԏVُ*NW[&{(Ws t r 1 -NvNhv[OPyϑ	1Y%eԏV- 1 0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r s p n { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r s p n [ s t r 1 , s t r 2 ] (WW[&{2Ns t r 1 -N[MO!kQsv
NS+T(WW[&{Ɩs t r 2 -Nvg*NW[&{ԏVُ*NW[&{(Ws t r 1 -NvNhv[OPyϑ	1Y%eԏV- 1 0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r s t r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r s t r [ s t r 1 , s t r 2 , b e g i n , e n d ] (WW[&{2Ns t r 1 -Ng~bP[2Ns t r 2 ԏVP[2N(Ws t r 1 -NvMOnv[OPyϑ	1Y%eԏV- 1 0b e g i n Te n d c[Ng~bMOn:we n d RNb e g i n MOn _Yg~bb e g i n Te n d :wRg~bte*NW[&{2N0ЏL1   Spe*Npe^l2 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r t o k { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r t o k [ s t r 1 , s t r 2 ] 
 
 (WW[&{2Ns t r 1 S+TR&{TS	-NcSSs t r 2 /fS+TR&{vW[&{2NԏV N*Nl u u [al u u [aS+TN@b	gcSvS1Y%eԏVn i l 0
 
 ЏL1 Spe^l0
 
 OP[s y s : : s t r t o k [ " o n e , t w o   t h r e e   ,   f o u r * f i v e " ,   " ,   * " ] . o [ ] ;   
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r l w r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r l w r [ s t r ] \W[&{2Ns t r lbc:N\QNԏVW[&{2N0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r u p r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r u p r [ s t r ] \W[&{2Ns t r lbc:N'YQNԏVW[&{2N0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r s e t [ s t r , c h , b e g i n , e n d ] \W[&{2Ns t r -NNb e g i n ^e n d vQ[n:NW[&{c h 0:wb e g i n Te n d Rnte*NQ[N:we n d RnNb e g i n  _YvQ[0NԏVW[&{2N0ЏL1 Spe*Npe^l2 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r r e v { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r r e v [ s t r ] SlW[&{2Ns t r -NvW[&{z^NԏVW[&{2N0ЏL1 Spe^l0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r r e p { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r r e p [ s t r , o l d s t r , n e w s y t , s t a r t , n t i m e s ] 
 
 \W[&{2Ns t r -NvP[2No l d s t r fbc:Nn e w s t r ԏVfbcTvW[&{2N0s t a r t :Ng~bfbcv _YMOn:w:NN4Y _Yfbc0n t i m e s c[ۏLfbcv!kpe:wh:yfbc@b	g9SM0
 
 ЏL1 Spe*Npe^l2 Spe^l  3 QX[0    
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r d a t e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r d a t e [ ] begb0R N*NW[&{2N-Nv^ԏVW[&{2N1Y%eԏVn i l 0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r t i m e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r t i m e [ ] beb0R N*NW[&{2N-Nv^ԏVW[&{2N1Y%eԏVn i l 0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : C o m R e g e x { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : C o m R e g e x ( p a t t e r n , f l a g s ) ыckRh_e,g
 
 
 
         p a t t e r n W[&{2NckRh_0
 
         f l a g s h_9SM!j_0/ecv9SM!j_	gs y s : : r e I g n o r e C a s e ,   s y s : : r e S i n g l e l i n e ,   s y s : : r e M u l t i l i n e ,   s y s : : r e G l o b a l ,   s y s : : r e R i g h t T o L e f t ,   s y s : : r e E x t e n d e d   ُ  6   y!j_NS[Nv~TbO(u:wvs y s : : r e N o F l a g !j_0SN:wSpe:w<P:Ns y s : : r e N o F l a g 0~fYN
 
 
 
         s y s : : r e I g n o r e C a s e   9SMe_eu'Y\Q0؞`QNckRh_/f:SR'Y\Qv0
N{/f&Tc[_eu'Y\Q!j_W[&{{|kY  [ A - Z ]   /f:SR'Y\Qv0
 
 
 
         s y s : : r e S i n g l e l i n e   O\pep  " . "   SN9SMS+TbcL&{\ n 	(WQvNaW[&{0؞`QN\pepS9SMbcL&{NYvNaW[&{
N9SMbcL&{0
 
 
 
         s y s : : r e M u l t i l i n e   O  ^   &{SdNY9SMW[&{2N _YMOnY؏9SMbcL&{\ n 	KNTvMOnO  $   &{SdNY9SMW[&{2N~_gMOnY؏9SMbcL&{KNMRvMOn0؞`QN  ^   &{SS9SMW[&{2N _YMOn  $   &{SS9SMW[&{2N~_gMOn0s y s : : r e S i n g l e l i n e   T  s y s : : r e M u l t i l i n e   }6q,TwegvNwvFOtS/f\O(u(W
NTv0We0Vdk[N/fSN~TO(uv0(Wc[N  s y s : : r e M u l t i l i n e   KNTYg N9SMW[&{2N _YT~_gMOnSNO(u  \ A   T  \ Z 0
 
 
 
         s y s : : r e G l o b a l   O  \ G   SN(ueg9SM,g!kg~b9SMv _YMOn[Nޏ~v9SMeg_N1\/f
N!k9SMv~_gMOn0؞`QN  \ G   l	g\O(u0(WۏLfbcd\OR e p l a c e 	e
N{/f&Tc[  s y s : : r e G l o b a l   !j_SNۏL@b	gvfbc0/f&Tc[  s y s : : r e G l o b a l   !j_S/f[  \ G   w\O(u0Yg^gۏL	gP!kpevfbcS(Wfbcd\Oec[fbc!kpe0
 
 
 
         s y s : : r e R i g h t T o L e f t   NST]vۏL9SM0N9SMW[&{2Nv~_gMOnTMRۏLg~b9SMTe(Wh_-N_N/fSOvh_HQۏL9SM0h_vQlN6q	cSegv`N`9SM!kpeOp&{* ,   + ,   { n } ,   & & 	N6qMONOpRvSO
N/f]O^   N6q9SMe,g _Y
N/fe,g~_g( ? = x x x )   N6q/fckTNd"}TSd"}	
N/fT]R~g r o u p 	SN6q/fN]TSۏLSI{I{0
N{te*Nh_/f&Tc[N  s y s : : r e R i g h t T o L e f t   !j_" STd"}ST[^e 	"   Qvh_Y~Ǒ(u  s y s : : r e R i g h t T o L e f t   !j_0
 
 
 
         s y s : : r e E x t e n d e d   O  D E E L X   _euh_-Nvzz}vW[&{v^NbN  #    _Y0RLL+gvQ[Ɖ:Nlʑ0؞`QNckRh_-Nvzz<hbcLI{W[&{\SN9SMv^vW[&{0c[N  s y s : : r e E x t e n d e d   !j_TYg(WckRh_-Nh:yzz}vW[&{kYzz<h&{Ss p a c e 	e^(u  \ x 2 0   h:yYg(Wh_-Nh:y  #   &{S^(u  \ #   h:y0
N{/f&Tc[N  s y s : : r e E x t e n d e d   !j_bSQN  ? #   S _YekY( ? #   x x x   ) HNُ N[bSNSS+TvQ[Y~\O:Nlʑ_eu0
 
 
 
         ԏV<Pp a t t e r n 0QeԏVn i l 0
 
 
 
         fNUO N*NckRh_[a HQ(uQpeыckRh_e,gTMbO(u0
 
 
 
         ЏL1 Spe*Npe^l2 Spe^l0
 
 
 
         OP[$Re N*NW[&{2N/f&ThQ1upeW[~b
 
 
 
 ! ! ! u s i n g [ " s y s " ] ;                                                             / / O(u}T
Tzzs y s 
 
 m a i n ( ) = 
 
 { 
 
         C o m R e g e x ( @ " \ d + " ) ,                                                   / / ыckRh_e,g
 
         M a t c h E x a c t ( " 1 2 3 4 5 " ) ,                                             / / /f&TR}Y9SM
 
         w h i c h { 
 
                 I s M a t c h e d ( )   :   p r i n t f { " \ r \ n y e s ! \ r \ n " } ,   / / 9SMbRQy e s 
 
                 p r i n t f { " \ r \ n n o ! \ r \ n " }                                   / / 9SM1Y%Qn o 
 
         } 
 
 } ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : M a t c h E x a c t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : M a t c h E x a c t ( s t r )  OeQve,g/f&TR}Y9SMckRh_
 
 
 
         s t r ۏL9SMvW[&{2N0
 
 
 
         ԏV<Ps t r 0
 
 
 
         f@bR}Y9SM1\/fBlckRh_Ne,g _YMOnR}Y9SM0Re,g~_gMOn09SM~gSǏQpes y s : : I s M a t c h e d S0
 
 
 
         ЏL1 ^lvW[&{2N0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : M a t c h { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : M a t c h ( . . .   . . . ) Ne,g-Ng~b9SM&{Th_vP[W[&{2N
 
 
 
         <h_1 s y s : : M a t c h ( ) O(u
NNe[aN
N!k9SM~_gMOnbRYSMOn _Yg~b9SM0
NNe[a HQO(uQpes y s : : P r e p a r e M a t c h ۏLRYS0
 
         <h_2 s y s : : M a t c h ( s t r ) M a t c h   el*gc[ _YMOnR9hncS_MR9SM!j_/f&T/f  s y s : : r e R i g h t T o L e f t   !j_Q[ _YMOnYg/fnf!j_RN  0    _YTSg~bYg/f  s y s : : r e R i g h t T o L e f t   !j_RNW[&{2N~_gMOn _YT]g~b0
 
         <h_3 s y s : : M a t c h ( s t r , s t a r t ) M a t c h   elc[N _YMOnRNc[MOn _Yg~b0
 
 
 
         s t r ۏL9SMvW[&{2N0
 
         s t a r t  _Yg~b9SMvMOn0
 
 
 
         ԏV<Ps t r 0
 
 
 
         f9SM~gSǏQpes y s : : I s M a t c h e d I{QpeS0
 
 
 
         ЏL1 Spe*Npe^l2 Spe^l0
 
 
 
         OP[1 M a t c h <h_1 (W Nk  C + +   nNxe,g-Ng~blʑ
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : s t r ) = 
 
 { 
 
         s t r = n e w ( s t r i n g , " i n t   a ;   / *   a   * / " ) ,                     / / 3uW[&{2NX[>enNx
 
         C o m R e g e x ( @ " / \ * ( ( ? ! \ * / ) . ) * ( \ * / ) ? | / / ( [ ^ \ x 0 A - \ x 0 D \ \ ] | \ \ . ) * " ) ,     / / ыckRh_e,g
 
         P r e p a r e M a t c h ( s t r ) ,                                                   / / 9SMQY
 
         M a t c h ( ) ,                                                                       / / 9SMP[W[&{2N
 
         w h i c h { 
 
                 I s M a t c h e d ( )   :   p r i n t f { " \ r \ n f o u n d : % s \ r \ n " , s u b s t r [ s t r , G e t S t a r t ( ) , G e t E n d ( ) - 1 ] } ,       / / 9SMbRQ9SM~g
 
                 p r i n t f { " \ r \ n n o t   f o u n d ! \ r \ n " }                       / / 9SM1Y%Q  n o t   f o u n d ! 
 
         } 
 
 } ; 
 
 
 
         OP[2 M a t c h <h_2 (W Nk  C + +   nNxe,g-Ng~blʑ
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : s t r ) = 
 
 { 
 
         s t r = n e w ( s t r i n g , " i n t   a ;   / *   a   * / " ) ,                     / / 3uW[&{2NX[>enNx
 
         C o m R e g e x ( @ " / \ * ( ( ? ! \ * / ) . ) * ( \ * / ) ? | / / ( [ ^ \ x 0 A - \ x 0 D \ \ ] | \ \ . ) * " ) ,     / / ыckRh_e,g
 
         M a t c h ( s t r ) ,                                                                 / / 9SMP[W[&{2N
 
         w h i c h { 
 
                 I s M a t c h e d ( )   :   p r i n t f { " \ r \ n f o u n d : % s \ r \ n " , s u b s t r [ s t r , G e t S t a r t ( ) , G e t E n d ( ) - 1 ] } ,       / / 9SMbRQ9SM~g
 
                 p r i n t f { " \ r \ n n o t   f o u n d ! \ r \ n " }                       / / 9SM1Y%Q  n o t   f o u n d ! 
 
         } 
 
 } ; 
 
 
 
         OP[3 R>N Nke,g-N@b	gv&^\pevpeW[
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : s t r , r e s u l t ) = 
 
 { 
 
         s t r = n e w ( s t r i n g , " 1 2 . 5 ,   a 1 . 1 ,   0 . 1 2 3 ,   1 7 8 " ) ,     / / 3uW[&{2NX[>ee,g
 
         C o m R e g e x ( @ " \ b \ d + \ . \ d + " ) ,                                       / / ыckRh_e,g
 
         P r e p a r e M a t c h ( s t r ) ,                                                   / / 9SMQY
 
         M a t c h ( ) ,                                                                       / / 9SMP[W[&{2N
 
         w h i l e { I s M a t c h e d ( ) ,                                                   / / 9SMbRQ9SM~g
 
                 p r i n t f { " % s \ r \ n " , s u b s t r [ s t r , G e t S t a r t ( ) , G e t E n d ( ) - 1 ] } , 
 
                 M a t c h ( )                                                                 / / 9SMP[W[&{2N
 
         } 
 
 } ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t N a m e d G r o u p N u m b e r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t N a m e d G r o u p N u m b e r ( G r o u p N a m e ) Ǐ}T
TR~
TԏV}T
TR~S
 
 
 
         G r o u p N a m e W[&{2N}T
TR~
T0
 
 
 
         ԏV<P}T
TR~S0
 
 
 
         ЏL1 ^lvW[&{2N0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : P r e p a r e M a t c h { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : P r e p a r e M a t c h ( t s t r i n g , s t a r t ) RYS
NNe[aQYNe,g-Ng~b9SM&{Th_vP[W[&{2N
 
 
 
         t s t r i n g ۏL9SMvW[&{2N0
 
         s t a r t  _Yg~bvwYMOn0SN:wSpedke9hncS_MR9SM!j_/f&T/f  s y s : : r e R i g h t T o L e f t   !j_Q[ _YMOnYg/fnf!j_RN  0    _YTSg~bYg/f  s y s : : r e R i g h t T o L e f t   !j_RN~_gMOn _YT]g~b0
 
 
 
         ԏV<Pt s t r i n g 0
 
 
 
         ЏL1 Spe*Npe^l2 Spe^l0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : R e p l a c e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : R e p l a c e ( s t r , r p l t o , s t a r t , n t i m e s ) e,gfbcd\O
 
 
 
         s t r W[&{2N0ۏLfbcvRYe,g0
 
         r p l t o  fbc:N W[&{2N\9SM0RvP[W[&{2Nfbcb  r p l t o   W[&{2N0
 
         s t a r t ۏLg~bfbcv _YMOn0SN:wSpe؞- 1 	dke9hnc/f&T/f  s y s : : r e R i g h t T o L e f t   ꁨRQ[ _YMOn0
 
         n t i m e s c[ۏLfbcv!kpe0SN:wSpe؞- 1 	dkeh:yfbc@b	g9SM0
 
 
 
         ԏV<PfbcT_0RveW[&{2N0
 
 
 
         ЏL1 Spe*Npe^l2 Spe^l3 QX[0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : I s M a t c h e d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : I s M a t c h e d ( ) S/f&T9SMbR
 
 
 
         ԏV<PԏV  t r u e   h:y9SMbRԏV  f a l s e   h:y9SM1Y%0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t S t a r t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t S t a r t ( ) S9SM0RvP[W[&{2N _YMOn
 
 
 
         ԏV<P9SMbRTS@b9SM0RvP[W[&{2Nv _YMOn0Yg9SM1Y%RԏV<P0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t E n d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t E n d ( ) S9SM0RvP[W[&{2N~_gMOn
 
 
 
         ԏV<P9SMbRTS@b9SM0RvP[W[&{2Nv~_gMOn0Yg9SM1Y%RԏV<P0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t G r o u p S t a r t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t G r o u p S t a r t ( n G r o u p N u m b e r ) SR~ _YMOn
 
 
 
         n G r o u p N u m b e r tepeR~S0
 
 
 
         ԏV<PSc[R~UcvW[&{2Nv _YMOn0Ygc[R~*gUcbte*Nh_*g9SMbRRԏV<P0
 
 
 
         ЏL1 ^lvSpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t G r o u p E n d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t G r o u p E n d ( n G r o u p N u m b e r ) SR~~_gMOn
 
 
 
         n G r o u p N u m b e r tepeR~S0
 
 
 
         ԏV<PSc[R~UcvW[&{2Nv~_gMOn0Ygc[R~*gUcbte*Nh_*g9SMbRRԏV<P0
 
 
 
         ЏL1 ^lvSpe0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : M a x G r o u p N u m b e r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : M a x G r o u p N u m b e r ( ) SckRh_ g'YUc~S
 
 
 
         ԏV<PԏV g'YR~S0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f o p e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f o p e n ( " f i l e n a m e " , " m o d e " ) Sb _eN
 
 
 
         " f i l e n a m e " eN
TSNS+T_TeN
T$NR0
 
         " m o d e " Sb _eNv{|W0sQNeN{|Wvĉ[SNbf0
 
         ԏV<Pd\ObRԏV	gHeveNSgh F i l e 0&TRԏVn i l 0e hgeNSg/f&T	gHev^veNd\OQpeOꁨRۏLhg0
 
 
 
         ЏL1  W[&{2NSpecQeN
TTeN!j_2 eN!j_0
 
 
 
         f
 
 
 
 eN
T<h_
 
 	 " B : T E S T . D A T " 
 
 	 " C : \ \ T C \ \ T E S T . D A T " 
 
 laYg\_Qb" C : \ T C \ T E S T . D A T " /f
Ncknxv,   ُ Npyr+Rla0
 
 f o p e n Qpe(uegSb _ N*NeNvQ(uv N,b__:Nf o p e n ( eN
T, O(ueNe_) 
 
   vQ-N eN
T /fSb _eNveN
T0 O(ueNe_ /fceNv{|WTd\OBl0 eN
T /f N*NW[&{2N0OY  
 
 	 f o p e n ( " f i l e   a " , " r " ) ; 
 
 vQaIN/f(WS_MRvU_NSb _eNf i l e   a SAQۏL  d\O0
 
 SY
 
 	 f o p e n ( " c : \ \ h z k 1 6 " , " r b " ) 
 
 vQaIN/fSb _C qRhVxvv9hvU_NveNh z k 1 6   ُ/f N*NNۏ6ReNSAQ	cNۏ6Re_ۏLd\O0
 
 $N*NSe~ \ \    -Nv,{ N*Nh:ylINW[&{,{N*Nh:y9hvU_0O(ueNve_qQ	g1 2 yNb~QN[Nv&{STaIN0
 
                                       h  eNd\O{|W
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
             W[&{                                  +TIN
 
  % % % % % % % % % % % % % % % % % % % % % % % % % % % %
 
               " r "                         Sb _eW[eNS
 
               " w "                         R^eW[eNSQ
 
               " a "                         Xe,   YgeN
NX[(WRR^ N*N
 
               " r + "                       Sb _ N*NeW[eN/ Q
 
               " w + "                       R^ N*NeW[eN/ Q
 
               " a + "                       Sb _bR^ N*NeNXe
 
               " b "                         Nۏ6ReN( SNT
Nbk NyT(u) 
 
               " t "                         eُeN( ؞y) 
 
 %%%%%%%%%%%%%%%%%%%%%%%%%%%%
 
 
 
 eNO(ue_   0 0 0 0 0 0 0a  IN
 
 
 
 " r t "  0 0 0 0 0 0SSb _ N*Ne,geNSAQpenc  
 
 " w t "  0 0 0 0 0 0SQSb _b^z N*Ne,geNSAQQpenc
 
 " a t "  0 0 0 0 0 0RSb _ N*Ne,geNv^(WeN+g>\Qpenc
 
 " r b "  0 0 0 0 0 0SSb _ N*NNۏ6ReNSAQpenc
 
 " w b "  0 0 0 0   0  SQSb _b^z N*NNۏ6ReNSAQQpenc
 
 " a b "    0 0 0 0   0RSb _ N*NNۏ6ReNv^(WeN+g>\Qpenc
 
 " r t + "  0 0 0 0 0  QSb _ N*Ne,geNAQTQ
 
 " w t + "  0 0 0 0 0  QSb _b^z N*Ne,geNAQQ
 
 " a t + "  0 0 0 0 0  QSb _ N*Ne,geNAQb(WeN+gRpenc
 
 " r b + "  0 0 0 0 0  QSb _ N*NNۏ6ReNAQTQ  
 
 " w b + "  0 0 0 0 0  QSb _b^z N*NNۏ6ReNAQTQ
 
 " a b + "    0 0 0 0 0QSb _ N*NNۏ6ReNAQb(WeN+gRpenc
 
 
 
 [NeNO(ue_	gNNQpf
 
 
 
 1 .   eNO(ue_1ur , w , a , t , b + mQ*NW[&{bbTW[&{v+TIN/f
 
 
 
 	 r ( r e a d ) :   
 
 	 w ( w r i t e ) :   Q
 
 	 a ( a p p e n d ) :   R
 
 	 t ( t e x t ) :   e,geNSweu
NQ
 
 	 b ( b a n a r y ) :   Nۏ6ReN
 
 	 + :   TQ
 
 
 
 2 .   Q(u" r " Sb _ N*NeNe勇eN_{]~X[(WNSN勇eNQ0
 
 
 
 3 .   (u" w " Sb _veNST勇eNQeQ0Sb _veN
NX[(WRNc[veN
T^z勇eNSb _veN]~X[(WR\勇eN RS͑^ N*NeeN0
 
 
 
 4 .   傁T N*N]X[(WveNRevOo`S(u" a   " e_Sb _eN0FOdke勇eN_{/fX[(Wv&TR\OQ0
 
 
 
 5 .   (WSb _ N*NeNeYgQf o p e n \ԏV N*Nzzc<PN U L L ~eNSgh F i l e T~eNd\O\
Nck8^ۏL0
 
 
 
 6 .   b N*Ne,geNeQQX[e\A S C I I xlbcbNۏ6RxbeNNe,ge_QeQxve_NbNۏ6RxlbcbA S C I I xVdke,geNvQ9Yvlbce0
 
 
 
 7 .   [Nۏ6ReNvQ
NX[(Wlbc0
 
 
 
 8 .   U n i c o d e e,geNvh_/feN^/fvPpeW[&{:Ns y s : : U T E X T W[&{N/f N*Nh_
NSb(W	gHevU n i c o d e e,geNQ[-N	0
 
 
 
 
 
 YgSb _ N*NC C D O S P[vU_-N,   eN
T:NC L I B vNۏ6ReN,   SQb: 
 
 	 f o p e n ( " c : \ \ c c d o s \ \ c l i b " ,   " r b " ) ; 
 
         [ OP[1 ]   U n i c o d e e,geNNwYW[&{U T E X T :Nh_	v^>f:yvQQ[h_KN(u!jWWSϑ OSpe
 
 
 
 ! ! ! u s i n g [ " s y s " ] ;                         / / O(u}T
Tzz s y s  
 
 m a i n ( : f , l e n , s , x ) = 
 
     f = f o p e n [ " a a . t x t " , " r b " ] ,       / / Sb _eN" a a . t x t " _{/f]~X[(WvU n i c o d e e,geN
 
     f s e e k ( f , 0 , S E E K _ E N D ) ,             / / beNcyR0ReN+g>\_>f:yeNQ[ebcyRV0ReN4Y
 
     l e n = f t e l l [ f ] ,                           / / SeNcvMOnvS_N_0ReNv^N
 
     s = n e w [ s t r i n g , l e n + 1 ] ,             / / 9hnceN^3uQX[zzOSeN^_ N[vup;m'`laTbR NvaIN
 
     r e w i n d [ f ] ,                                 / / beNcyR0ReN _4YS_6q_NSN(uf s e e k ( ) [bُ*NR\O
 
     x = 0 ,   f r e a d [ f , & x , 2 ] ,               / / S,{ N*NW[&{0Rx :NU n i c o d e e,geNW[&{^:NU T E X T SNۏL$Reُ̑weuN
 
     f r e a d [ f , s ] ,                               / / SeN
 
     f c l o s e [ f ] ,                                 / / sQ핇eN
 
     p r i n t f [ " % s \ r \ n " , s ] ;               / / QeNQ[
 
 
 
         [ OP[2 ]   Nۏ6ReNQ
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : f , d , e ) = 
 
     d = n e w [ i n t s , 5 , d a t a : 1 , 2 , 3 , 4 , 5 ] ,   e = n e w [ i n t s , 5 , d a t a : 0 , 0 , 0 , 0 , 0 ] , 
 
     f = f o p e n [ " b b . t x t " , " w b + " ] , 
 
     f w r i t e [ f , d ] ,   r e w i n d [ f ] ,   f r e a d [ f , e ] , 
 
     f c l o s e [ f ] , 
 
     p r i n t f { " % i   % i   % i   % i   % i \ r \ n " , e [ 0 ] , e [ 1 ] , e [ 2 ] , e [ 3 ] , e [ 4 ] } ; 
 
 
 
         [ OP[3 ]   U n i c o d e e,geNQ(uNۏ6ReN[s
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : f , d , e , x ) = 
 
     d = n e w [ s t r i n g , " h e l l o ! \ r \ n L u ! " ] , e = n e w [ s t r i n g , 8 0 ] , 
 
     f = f o p e n [ " c c . t x t " , " w b + " ] , 
 
     f w r i t e [ f , U T E X T , 2 ] ,   f w r i t e [ f , d ] , 
 
     r e w i n d [ f ] ,   x = 0 ,   f r e a d [ f , x , 2 ] ,   f r e a d [ f , e ] , 
 
     f c l o s e [ f ] , 
 
     p r i n t f [ " % s \ r \ n " , e ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f c l o s e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f c l o s e ( h F i l e ) sQ핇eN
 
 
 
         h F i l e eNSg0
 
         ԏV<Pd\ObRԏV0 0&TRԏVs y s : : E O F 0
 
         f_NSN(ud e l e t e ( h F i l e ) sQ핇eN0YgO(ud e l ( h F i l e ) \
NzsSsQ핇eN0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f w r i t e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f w r i t e ( h F i l e , v a l u e , s i z e ) bs y s : : f w r i t e ( h F i l e , b u f f e r , c o u n t ) QeN
 
 
 
         h F i l e eNSg0
 
         v a l u e {USpenc/ectepe0[pe0
YpeTTϑ	0
 
         s i z e {USpencvW[pe0s i z e = 1 ^2 4 0s i z e = 1 h:y8 MOpeY N*NA S C I I W[&{	s i z e = 2 h:y1 6 MOpeY N*NU n i c o d e W[&{	s i z e = 4 h:y3 2 MOpes i z e = 8 h:y6 4 MOpeL u ؞tepeb[pe	0SN:wSpedkev a l u e /f N*Ntepe0[pe0cs i z e = 8 v a l u e /f N*N
Ypes i z e = 1 6 v a l u e /f N*NTϑs i z e = 2 4 0
 
         b u f f e r pe~penc/ecA S C I I W[&{2N0U n i c o d e W[&{2N0tepepe~0[pepe~	0\Qpe~vhQpencbc o u n t c[vpencpev0
 
         c o u n t QeQpencv g'Ypev0Yg<P'YNpe~^<P_eu\QhQpenc0SpeSN:wh:yQhQpenc0
 
         ԏV<PԏVQeQvpenc[avpev0
 
 
 
         ЏL1 S	g2 *Nb3 *NSpe2 
NSƋ+RSpeOY^lveNSgI{3 pencvW[pebpencpev^l4 
NSƋ+RvW[&{2N5 
NSƋ+RvA S C I I W[&{2N6 
NSƋ+Rvpe~7 {USpencvW[pe*YY0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f r e a d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f r e a d ( h F i l e , v a l u e , s i z e ) bs y s : : f r e a d ( h F i l e , b u f f e r , c o u n t ) eN
 
 
 
         h F i l e eNSg0
 
         v a l u e {USpenc/ectepe0[pe0
YpeTTϑ	0
 
         s i z e {USpencvW[pe0s i z e = 1 ^2 4 0s i z e = 1 h:y8 MOpeY N*NA S C I I W[&{	s i z e = 2 h:y1 6 MOpeY N*NU n i c o d e W[&{	s i z e = 4 h:y3 2 MOpes i z e = 8 h:y6 4 MOpeL u ؞tepeb[pe	0SN:wSpedkev a l u e /f N*Ntepe0[pe0cs i z e = 8 v a l u e /f N*N
Ypes i z e = 1 6 v a l u e /f N*NTϑs i z e = 2 4 0
 
         b u f f e r pe~penc/ecA S C I I W[&{2N0U n i c o d e W[&{2N0tepepe~0[pepe~	0\npe~vhQpencbc o u n t c[vpencpev0
 
         c o u n t eQpencv g'Ypev0Yg<P'YNpe~^<P_euNnhQpenc0SpeSN:wh:yhQpenc0
 
         ԏV<PԏVSvpenc[avpev0
 
 
 
         ЏL1 S	g2 *Nb3 *NSpe2 
NSƋ+RSpeOY^lveNSgI{3 pencvW[pebpencpev^l4 
NSƋ+RvW[&{2N5 
NSƋ+RvA S C I I W[&{2N6 
NSƋ+Rvpe~7 {USpencvW[pe*YY0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f s e e k { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f s e e k ( h F i l e , o f f s e t , o r i g i n ) neNcvMOn
 
 
 
         h F i l e eNSg0
 
         o f f s e t eNcNo r i g i n  _YvOPyW[pe0
 
         o r i g i n wYMOnQpeNMOn _YXROPyϑ0SSs y s : : S E E K _ C U R S_MRMOn	s y s : : S E E K _ E N D eN>\	Ts y s : : S E E K _ S E T eN4Y	0
 
         ԏV<PbReԏV0 &TRԏV^0 <P0
 
 
 
         ЏL1 
NSƋ+RSpe2 ^lvwYMOn3 ^lveNSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f e o f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f e o f ( h F i l e ) $Re/f&T0ReN>\
 
 
 
         h F i l e eNSg0
 
         ԏV<Pl	g0ReN>\eԏV0 &TRԏV^0 <P0
 
 
 
         ЏL1 ^lveNSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f f l u s h { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f f l u s h ( h F i l e ) 7Re N*NSb _vAm\Q:S-NvQ[QeQeN
 
 
 
         h F i l e eNSg0
 
         ԏV<Pd\ObRԏV0 0&TRԏVs y s : : E O F 0
 
 
 
         ЏL1 ^lveNSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f t e l l { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f t e l l ( h F i l e ) SeNcMOn
 
 
 
         h F i l e eNSg0
 
         ԏV<Pd\O1Y%ԏV- 1 0
 
 
 
         ЏL1 ^lveNSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : r e w i n d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : r e w i n d ( h F i l e ) beNcnVeNvwYMOn
 
 
 
         h F i l e eNSg0
 
         ԏV<Ph F i l e 0
 
 
 
         ЏL1 ^lveNSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : p r i n t f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : p r i n t f ( F o r m a t S t r , x 1 , x 2 , . . .   . . . ) <h_SQ0RhQY
 
 
 
         F o r m a t S t r <h_2NW[&{2N	SSbe,gTNh-Nvc6Rx0<h_SW[&{2NSb$NRQ[ NR/fck8^W[&{ُNW[&{\	cS7hQS NR/f<h_Sĉ[W[&{N %   _Y,   Tߍ N*NbQ*Nĉ[W[&{(uegnx[QQ[<h_0
 
         x 1 , x 2 , . . .   . . . N<h_2N-Nvc6RNxv9SMvpencyRh0pencyv*NpeN<h_fv*Npe N<h_fTpency(Wz^
NvN[^0
 
         ԏV<PQW[&{peQeԏV- 1 	0
 
 
 
         ЏL1 
N\W[&{2NS0R]v0W@W2 W[&{2N*YYel3uQ:S3 QX[4 :\<h_W[&{2N5 :\pency6 ^lvW[&{2Nc7 elƋ+R<h_2N8 pencyYN<h_&{9 <h_SQ0
 
 
 
 Qpep r i n t f ( ) v<h_f&{
 
 
 
 f&{  c  
 
 % %   f N*N[W[&{ %  0  
 
 % C   f N*N[W[&{0  
 
 % d   f N*N&^&{Sv1 0 ۏ6Rtepe0  
 
 % e   f N*N&^&{SvS|^nmp<P<P/f(u&^\QW[k e  vyf[pelh:yv0  
 
 % E   f N*N&^&{SvS|^nmp<P<P/f(u&^'YQW[k E  vyf[pelh:yv0  
 
 % f   f N*N&^&{SvS|^nmp<P0  
 
 % g   f N*N&^&{SvS|^nmp<P<P/f(uck8^elh:yvb/f(u&^\QW[k e  vyf[pelh:yv0  
 
 % G   f N*N&^&{SvS|^nmp<P<P/f(uck8^elh:yvb/f(u&^'YQW[k E  vyf[pelh:yv0  
 
 % i   f N*N&^&{Sv1 0 ۏ6Rtepe0  
 
 % n   f N*Npepe(uNc6e]QW[&{v*Npe0  
 
 % o   f N*Ne&{Sv8 ۏ6Rtepedk<h_&{]\O
Nck8^	  0  
 
 % p   f N*Nc(W3 2 MOs^S
Nc:N N*NpevMR4 *NW[0  
 
 % s   f N*NW[&{2NYgc[W[W[ g'Y:N9 9 0  
 
 % u   f N*Ne&{Sv1 0 ۏ6Rtepe0  
 
 % x   f N*Ne&{Sv1 6 ۏ6Rtepetepe-NvW[k/f(u\QW[kh:yv0  
 
 % X   f N*Ne&{Sv1 6 ۏ6Rtepetepe-NvW[k/f(u'YQW[kh:yv0  
 
 
 
         p r i n t f <h_c6R&{v[te<h_
 
 
 
         p r i n t f v<h_c6Rv[te<h_
 
         %     -     0     m . n     l 0h bI 6 4     <h_W[&{
 
         Nb[~b<h_fvTyRNf
 
         `$% h:y<h_fvwY&{S
NS:\0
 
         a$- 	g- h:y][PQYweuh:yS[PQ0
 
         b$0 	g0 h:yc[zzMOkX0 , Yweuh:yc[zzMO
NkX0
 
         c$m . n m cW[sS[^vQy(WQY
N@b`SvW[&{pe0n c|^0(uNfQv[Wpev\peMOpe0:Nc[n e+Tv|^:Nn = 6 MO0
 
         d$l 0h bI 6 4 l [teWcl o n g W[[Wcd o u b l e W0h (uN\teWv<h_W[&{Ock:Ns h o r t W0I 6 4 (uNf N*N6 4 MOtepe0
 
 
 
         







































 
         <h_W[&{
 
         <h_W[&{(uNc[Qyvpenc{|WTQ<h_0
 
           `$d <h_(uegQASۏ6Rtepe0	gNNQy(ul
 
         % d 	cteWpencv[E^Q0
 
         % m d m :Nc[vQW[kv[^0YgpencvMOpe\Nm R]zeNzz<h'YNm R	c[EMOpeQ0
 
         % l d QteWpenc0
 
         a$o <h_Ne&{SkQۏ6Rb__Qtepe0[teWSN(u" % l o " <h_Q0T7h_NSNc[W[k[^(u % m o  <h_Q0
 
         O
 
           p r i n t f ( " % d ,   % o " ,   - 1 ,   - 1 ) ; 
 
           ЏL~g- 1 , 1 7 7 7 7 7 
 
           z^㉐g- 1 (WQX[USCQ-NNexb__X[>e	:N( 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 ) 2 lbc:NkQۏ6Rpe:N( 1 7 7 7 7 7 ) 8 0
 
         b$x <h_Ne&{SASmQۏ6Rb__Qtepe0[teWSN(u" % l x " <h_Q0T7h_NSNc[W[k[^(u" % m x " <h_Q0
 
         c$u <h_Ne&{SASۏ6Rb__Qtepe0[teWSN(u" % l u " <h_Q0T7h_NSNc[W[k[^(u % m u  <h_Q0
 
         d$c <h_Q N*NW[&{0
 
         e$s <h_(uegQ N*N2N0	gQ-N(ul
 
         % s OY: p r i n t f ( " % s " ,   " C H I N A " ) Q" C H I N A " W[&{2N
NSbS_S	0
 
         % m s QvW[&{2N`Sm RYW[&{2N,g^'YNm Rz4xm vP6R, \W[&{2NhQ萓Q02N\Nm R]ezz<h0
 
         % - m s Yg2N\Nm R(Wm RVQW[&{2NT]`Sezz<h0
 
         % m . n s Q`Sm RFOSSW[&{2N-N]zn *NW[&{0ُn *NW[&{Q(Wm RvSO]ezz<h0
 
         % - m . n s vQ-Nm 0n +TINT
Nn *NW[&{Q(Wm RVv]OSezz<h0Ygn > m RꁨRSn <PsSOn *NW[&{ck8^Q0
 
         f$f <h_(uegQ[peSbUS0S|^	N\peb__Q0	gNNQy(ul
 
         % f 
Nc[[^tepeRhQ萓Qv^Q6 MO\pe0
 
         % m . n f QqQ`Sm RvQ-N	gn MO\peYpe<P[^\Nm ]zezz<h0  
 
         % - m . n f QqQ`Sn RvQ-N	gn MO\peYpe<P[^\Nm Szezz<h0
 
         g$e <h_Ncpeb__Q[pe0S(uNNb__
 
         % e peW[RSy>\pe	Q6 MO\pecpeR`S5 MOb4 MO0
 
         % m . n e T% - m . n e m 0n T -  W[&{+TINNMRvT0dkYn cpencvpeW[Rv\peMOpem h:yte*NQpenc@b`Sv[^0
 
         h$g <h_ꁨR	f <h_be <h_-Nwv NyQN
NQeaINv0
 
 
 
         







































 
         [NUS|^peO(u% f <h_&{QeNMR7 MO/f	gHepeW[\pe6 MO0
 
         [NS|^peO(u% l f <h_&{QeMR1 6 MO/f	gHepeW[\pe6 MO0
 
 
 
         OP[
 
 
 
 s y s : : p r i n t f ( " a = % d \ r \ n " ,   1 2 3 ) ;                                           / / QASۏ6Rtepea = 1 2 3 
 
 s y s : : p r i n t f ( " a = % 6 d \ r \ n " ,   1 2 3 ) ;                                         / / Q6 MOASۏ6Rpea =   1 2 3 
 
 s y s : : p r i n t f ( " a = % 0 6 d \ r \ n " ,   1 2 3 ) ;                                       / / Q6 MOASۏ6Rpea = 0 0 0 1 2 3 
 
 s y s : : p r i n t f ( " a = % 2 d \ r \ n " ,   1 2 3 ) ;                                         / / Ǐ2 MO, 	c[E<PQa = 1 2 3 
 
 s y s : : p r i n t f ( " i = % - 6 d \ r \ n " ,   1 2 3 ) ;                                       / / Q][P6 MOASۏ6Rtepei = 1 2 3   
 
 s y s : : p r i n t f ( " i = % p \ r \ n " ,   1 1 1 1 1 1 1 1 1 1 1 1 1 ) ;                       / / Q0W@W{|<ONi = 2 1 1 C 7 0 0 0 
 
 s y s : : p r i n t f ( " f = % f \ r \ n " ,   3 . 1 4 1 5 9 3 ) ;                                 / / Qnmppef = 3 . 1 4 1 5 9 3 
 
 s y s : : p r i n t f ( " f = % 6 . 4 f \ r \ n " ,   3 . 1 4 1 5 9 3 ) ;                           / / Q6 MOvQ-N\pepT4 MOvnmppef = 3 . 1 4 1 6   
 
 s y s : : p r i n t f ( " x = % l f \ r \ n " ,   0 . 1 2 3 4 5 7 ) ;                               / / Qnmppex = 0 . 1 2 3 4 5 7 
 
 s y s : : p r i n t f ( " x = % 1 8 . 1 6 l f \ r \ n " ,   0 . 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 ) ; / / Q1 8 MOvQ-N\pepT1 6 MOvnmpx = 0 . 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 
 
 s y s : : p r i n t f ( " c = % C \ r \ n " ,   6 6 ) ;                                             / / QW[&{c = B 
 
 s y s : : p r i n t f ( " s = % s \ r \ n " ,   " h e l l o `}Y" ) ;                     / / Qpe~W[&{2Ns = h e l l o `}Y
 
 s y s : : p r i n t f ( " X = % X \ r \ n " ,   1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 ) ;           / / Q1 6 ۏ6RtepeX = 7 D E 9 8 1 1 5 
 
 s y s : : p r i n t f ( " X = % I 6 4 X \ r \ n " ,   1 2 3 4 5 6 7 8 9 0 1 2 3 4 5 6 7 8 9 ) ;     / / Q1 6 ۏ6RtepeX = 1 1 2 2 1 0 F 4 7 D E 9 8 1 1 5 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s p r i n t f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s p r i n t f ( s t r , F o r m a t S t r , x 1 , x 2 , . . .   . . . ) <h_SQ0RW[&{2N
 
 
 
         s t r R`W[&{2N0@b	gQ\OX[0RW[&{2N0YgW[&{2N
NY(uQpeOꁨRXRW[&{2Nv'Y\0
 
         F o r m a t S t r <h_W[&{2NSSbe,gTc6Rx0<h_SW[&{2NSb$NRQ[ NR/fck8^W[&{ُNW[&{\	cS7hQS NR/f<h_Sĉ[W[&{N %   _Y,   Tߍ N*NbQ*Nĉ[W[&{(uegnx[QQ[<h_0
 
         x 1 , x 2 , . . .   . . . N<h_2N-Nvc6RNxv9SMvpencyRh0pencyv*NpeN<h_fv*Npe N<h_fTpency(Wz^
NvN[^0
 
         ԏV<PQW[&{peQeԏV- 1 	0
 
 
 
         ЏL1 ^lvR`W[&{2Ncs t r 2 
N\W[&{2NS0R]v0W@W3 W[&{2N*YYel3uQ:S4 QX[5 :\<h_W[&{2N6 :\pency7 ^lvW[&{2Nc8 elƋ+R<h_2N9 pencyYN<h_&{1 0 <h_SQ0
 
 
 
         fQpeRNp r i n t f {|<ON\Q[T0RW[&{2NSp r i n t f vf0
 
 
 
         OP[
 
 
 
 ( : s ) =   s = n e w [ s t r i n g , 1 0 0 , " " ] , s y s : : s p r i n t f ( s , " a = % 0 6 d \ r \ n " ,   1 2 3 ) , s y s : : p r i n t f [ " % s " , s ] ;   / / Q6 MOASۏ6Rpea = 0 0 0 1 2 3 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f p r i n t f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f p r i n t f ( p f i l e , F o r m a t S t r , x 1 , x 2 , . . .   . . . ) <h_SQ0ReN
 
 
 
         p f i l e eNSg0@b	gQ\OX[0R勇eN0
 
         F o r m a t S t r <h_W[&{2NSSbe,gTc6Rx0<h_SW[&{2NSb$NRQ[ NR/fck8^W[&{ُNW[&{\	cS7hQS NR/f<h_Sĉ[W[&{N %   _Y,   Tߍ N*NbQ*Nĉ[W[&{(uegnx[QQ[<h_0
 
         x 1 , x 2 , . . .   . . . N<h_2N-Nvc6RNxv9SMvpencyRh0pencyv*NpeN<h_fv*Npe N<h_fTpency(Wz^
NvN[^0
 
         ԏV<PQW[&{peQeԏV- 1 	0
 
 
 
         ЏL1 ^lveNSg2 :\<h_W[&{2N3 :\pency4 ^lvW[&{2Nc5 elƋ+R<h_2N6 pencyYN<h_&{7 <h_SQ0
 
 
 
         fQpeRNp r i n t f {|<ON\Q[T0ReNSp r i n t f vf0
 
 
 
         OP[
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : f , d , e , x ) = 
 
     d = n e w [ s t r i n g , " `}Y\ r \ n h e l l o ! \ r \ n " ] , 
 
     f = f o p e n [ " d d . t x t " , " w b + " ] , 
 
     f w r i t e [ f , U T E X T , 2 ] ,   f p r i n t f ( f , " a = % 0 6 d \ r \ n % s " ,   1 2 3 , d ) , 
 
     e = n e w [ s t r i n g , ( f t e l l ( f ) - 1 ) / 2 ] , 
 
     r e w i n d [ f ] ,   x = 0 ,   f r e a d [ f , x , 2 ] ,   f r e a d [ f , e ] , 
 
     f c l o s e [ f ] , 
 
     p r i n t f [ " \ r \ n % s \ r \ n " , e ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s s c a n f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s s c a n f ( s t r , F o r m a t S t r , & x 1 , & x 2 , . . .   . . . ) NW[&{2N<h_SeQ
 
 
 
         s t r W[&{2Nc0@b	gpenc\NW[&{2NS0
 
         F o r m a t S t r <h_2NW[&{2N	SSbe,gTc6Rx0<h_SW[&{2NSb$NRQ[ NR/fck8^W[&{S NR/f<h_Sĉ[W[&{N %   _Y,   Tߍ N*NbQ*Nĉ[W[&{(uegnx[QQ[<h_0
 
         & x 1 , & x 2 , . . .   . . . N<h_2N-Nvc6RNxv9SMvpencyRh0pencyv*NpeN<h_fv*Npe N<h_fTpency(Wz^
NvN[^0
 
         ԏV<PԏVbR0WYtvpencyv*NpeQeԏV- 1 	0(WdkO-NNSNx 1 ԏV3 Yt0Rx 2 ԏV4 Ndk{|c0
 
 
 
         ЏL1 nW[&{2N
NX[(W2 :\<h_2N3 nW[&{2NvOPyϑ^l4 QX[5 :\pency6 ^lvW[&{2Nc7 nW[&{2NNvvW[&{2NvTeld\O8 Y`W[&{2NQ:S*Y\elc6eW[&{9 elƋ+R<h_2N1 0 pencyYN<h_&{0
 
 
 
 Qpes s c a n f ( ) v<h_f&{
 
 
 
 f&{  c  
 
 % &   f N*Nv[NnW[&{2NvOPyϑ\NMOnNW[&{2N-NSpenc0f&{N(uN<h_2Nv _4Y0f&{N(uNs s c a n f ( ) Qpe0  
 
 % %   f N*N[W[&{ %  0  
 
 % C   f N*N[W[&{0  
 
 % d   f N*N&^&{Sv1 0 ۏ6Rtepe0  
 
 % e   f N*N&^&{SvS|^nmp<P<P/f(u&^\QW[k e  vyf[pelh:yv0  
 
 % E   f N*N&^&{SvS|^nmp<P<P/f(u&^'YQW[k E  vyf[pelh:yv0  
 
 % f   f N*N&^&{SvS|^nmp<P0  
 
 % g   f N*N&^&{SvS|^nmp<P<P/f(uck8^elh:yvb/f(u&^\QW[k e  vyf[pelh:yv0  
 
 % G   f N*N&^&{SvS|^nmp<P<P/f(uck8^elh:yvb/f(u&^'YQW[k E  vyf[pelh:yv0  
 
 % i   f N*N&^&{Sv1 0 ۏ6Rtepe0  
 
 % n   f N*Npepe(uNc6e]W[&{v*Npe0(WQpef s c a n f ( ) -Npe(uNc6eS_MRveNcMOn0  
 
 % o   f N*Ne&{Sv8 ۏ6Rtepedk<h_&{]\O
Nck8^	  0  
 
 % p   f N*Nc(W3 2 MOs^S
Nc:N N*NpevMR4 *NW[0  
 
 % s   f N*NW[&{2N0  
 
 % u   f N*Ne&{Sv1 0 ۏ6Rtepe0  
 
 % x   f N*Ne&{Sv1 6 ۏ6Rtepetepe-NvW[k/f(u\QW[kh:yv0  
 
 % X   f N*Ne&{Sv1 6 ۏ6Rtepetepe-NvW[k/f(u'YQW[kh:yv0  
 
 
 
         s s c a n f <h_c6R&{v[te<h_{ % [ * ]   [ w i d t h ]   [ { h   |   l   |   I 6 4   |   L } ] t y p e   |   ^% &{S} 
 
 
 
         f
 
 
 
         1 0*   NS(uN<h_-N,   ( sS  % * d   T  % * s )   RNfS  ( * )   h:yǏdkpenc
NeQ( _N1\/f
NbdkpenceQSpe-N)   0
 
         2 0{ a | b | c } h:ya , b , c -N	 N[ d ] , h:ySN	gd _NSNl	gd 0  
 
         3 0w i d t h h:yS[^0
 
         4 0{ h   |   l   |   I 6 4   |   L } : Spevs i z e , 8^h h:yUSW[s i z e I h:y2 W[  s i z e , L h:y4 W[s i z e ( d o u b l e OY) , l 6 4 h:y8 W[s i z e 0
 
         5 0t y p e   : ُ1\_YN1\/f% s , % d KN{|0  
 
         6 0yr+R0W% * [ w i d t h ]   [ { h   |   l   |   I 6 4   |   L } ] t y p e   h:ynagNvǏnc
NOTvhSpe-NQeQ<P
 
         /ecƖTd\O
 
 
 
         % [ a - z ]   h:y9SMa 0Rz -NNaW[&{*jZ'`( =\SYv9SM) 
 
         % [ a B ' ]   9SMa 0B 0' -N NXT*jZ'`
 
         % [ ^ a ]     9SM^a vNaW[&{*jZ'`
 
 
 
         % < a - z >   h:y9SMa 0Rz -NNaW[&{*jZ'`( =\SYv9SM) 
 
         % < a B ' >   9SMa 0B 0' -N NXT*jZ'`
 
         % < ^ a >     9SM^a vNaW[&{*jZ'`
 
 
 
         OP[1  N*NW[&{2N
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : s , b u f ) = 
 
     s = n e w [ s t r i n g , " `}Y\ r \ n h e l l o ! \ r \ n " ] ,   b u f = n e w [ s t r i n g , 8 0 ] , 
 
     s s c a n f ( s ,   " % s " ,   b u f ) ,                         / / ,{1 *NW[&{2N
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] , 
 
     s s c a n f ( s ,   " % * s % s " , b u f ) ,                     / / ,{2 *NW[&{2N
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] , 
 
     s s c a n f ( s ,   " % & % s " , 1 , b u f ) ,                   / / N,{2 *NW[&{ _Y
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : f s c a n f { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : f s c a n f ( p f i l e , F o r m a t S t r , & x 1 , & x 2 , . . .   . . . ) NeN<h_SeQ
 
 
 
         p f i l e eNSg0\N勇eN-NS<h_Spenc0
 
         F o r m a t S t r <h_2NW[&{2NSSbe,gTc6Rx0<h_SW[&{2NSb$NRQ[ NR/fck8^W[&{S NR/f<h_Sĉ[W[&{N %   _Y,   Tߍ N*NbQ*Nĉ[W[&{(uegnx[QQ[<h_0
 
         & x 1 , & x 2 , . . .   . . . N<h_2N-Nvc6RNxv9SMvpencyRh0pencyv*NpeN<h_fv*Npe N<h_fTpency(Wz^
NvN[^0
 
         ԏV<PԏVbR0WYtvpencyv*NpeQeԏV- 1 	0(WdkO-NNSNx 1 ԏV3 Yt0Rx 2 ԏV4 Ndk{|c0
 
 
 
         ЏL1 ^lveNSg2 :\<h_2N3 :\pency4 ^lvW[&{2Nc5 QX[6 Y`W[&{2NQ:S*Y\elc6eW[&{7 elƋ+R<h_2N8 pencyYN<h_&{0
 
 
 
         fQpeRNs s c a n f {|<OFONeN-NSpencSs s c a n f vf0
 
 
 
         OP[1  N*NW[&{2N
 
 
 
 ! ! ! u s i n g [ " s y s " ] ; 
 
 m a i n ( : f , s , b u f ) = 
 
     b u f = n e w [ s t r i n g , 8 0 ] ,   f = f o p e n [ " a a . t x t " , " r b " ] ,                         / / U n i c o d e eN a a . t x t  HQX[(W
 
     f r e a d [ f , 0 , 2 ] ,   f s c a n f ( f ,   " % s " ,   b u f ) ,                                         / / ,{1 *NW[&{2N
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] , 
 
     r e w i n d [ f ] ,   f r e a d [ f , 0 , 2 ] ,         f s c a n f ( f ,   " % * s % s " , b u f ) ,         / / ,{2 *NW[&{2N
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] , 
 
     f s e e k [ f , 6 , S E E K _ S E T ] ,   f s c a n f ( f ,   " % s " , b u f ) ,                             / / N,{3 *NW[&{ _Y
 
     p r i n t f [ " \ r \ n % s \ r \ n \ r \ n " , b u f ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s e t l o c a l e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s e t l o c a l e ( c a t e g o r y , l o c a l e , s t r ) nS_MR0WWvTy }
 
 
 
         c a t e g o r y O9ev0WW }0SSL C _ A L L n@b	g{|+R	0L C _ C O L L A T E nNQpes t r c o l l ( ) I{vsQTv0WW{|+R	0L C _ C T Y P E nN[W[&{sQTv0WW{|+R	0L C _ M O N E T A R Y nq_TQX[<h_v0WW{|+R	0L C _ N U M E R I C nq_T\pepv0WW{|+R	TL C _ T I M E nq_TeQpev0WW{|+R	0
 
         l o c a l e 0WW
TW[&{2N0
 
         s t r W[&{2N0W@W(uNc6eSHQv0WWW[&{2N0
 
         ԏV<PԏVs t r 0YgW[&{2NQ:S*Y\Nc6eR0WWW[&{2NNԏV- 1 0
 
 
 
         ЏL1 Spe^l0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : r e a d t x t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : r e a d t x t [ " a a . t x t " ] 
 
 QpeNe,ge_Sb _eNv^\Q[0R N*NW[&{2NQpeԏVُ*NW[&{2NQeԏVn i l 0
 
 
 
 ЏL1 Spe
NSƋ+R0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : w r i t e t x t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : w r i t e t x t [ " a a . t x t " , s t r ] 
 
 QpeNe,ge_R^bSb _eNYgSb _ N*NeNRSeN\v	v^\W[&{2Ns t r vQ[QeQeNQpeԏVQeQW[&{v*NpeQeԏVn i l 0
 
 
 
 ЏL1 Spe
NSƋ+R0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # W[xQd i c t { 
 
 [ L u S y s t e m 3 2 . d l l ]   W[xQd i c t 
 
 
 
         W[xQd i c t 	/f N*NSvcX[SvSThSNX[>er^NavL u penc0W[xQCQ }1u .
<P [~b.S/fW[&{2NFO<PSN/fNUOL u penc{|W0
 
 
 
         1 	e^W[xQ
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 n e w [ d i c t ,   " a a " : 1 . 2 ,   " a b c " : " l u u u " ] . o [ ] ;         / / (uQpen e w ubW[xQ	g2 ~RYSpenc0Qpeo (uNQW[xQ0
 
 
 
         (uQped i c t ubW[xQf:NeO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 d i c t [ " a a " : 1 . 2 ,   " a b c " : " l u u u " ] . o [ ] ;                   / / (uQped i c t ubW[xQ	g2 ~RYSpenc0Qpeo (uNQW[xQ0
 
 
 
         2 	_0RW[xQCQ }
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = d i c t [ " a a " : 1 . 2 ,   " a b c " : " l u u " ] ,   o [ a . " a a " ,   a . " a b c " ] ; 
 
 
 
         3 	XRW[xQCQ }
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = d i c t [ " a a " : 1 . 2 ,   " a b c " : " l u u " ] ,   a . " c c " = a . " a b c " + " 8 8 " ,   o [ a ] ; 
 
 
 
         fS__W[xQ-NXRCQ }e]X[(W.RۏLfe0
 
 
 
         4 	 RdW[xQ
 
 
 
          Rdc[.
<P[a . d i c t _ d e l [ " a a " , " a b c " ] ; 
 
 
 
         nzzW[xQa . d i c t _ c l e a r ( ) ; 
 
 
 
          RdW[xQ[aFOfX[(WQ:Sd e l [ a ] ; 
 
 
 
         zsS{_^ RdW[xQ[ad e l e t e [ a ] ; 
 
 
 
         5 	W[xQS^
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = d i c t [ " a a " : 1 . 2 ,   " a b c " : " l u u " ] ,   o [ a ] ,   o [ a . d i c t _ r e v e r s e ( ) ] ; 
 
 
 
         ~g
 
 
 
 d i c t { a a   :   1 . 2   ,   a b c   :   l u u } d i c t { a b c   :   l u u   ,   a a   :   1 . 2 } 
 
 
 
         6 	W[xQX[SHesKmՋ(WW[xQa -NmRr^CQ }CQ }v.ǏSbcW[&{2Ns t r v<P_0Rs u m (uNBl@b	gCQ }v<PvT0
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , j , s t r , t 0 , s u m ) =   t 0 = c l o c k ( ) ,   a = d i c t [ ] ,   s t r = " a a a a " ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 ,   s t r [ 1 ] = i , 
 
         j = 1 0 0 0 ,   w h i l e { j < 2 0 0 0 ,   s t r [ 2 ] = j ,   s u m = s u m + i + j ,   a . s t r = i + j ,   j + + } 
 
     } , 
 
     o { " \ r \ n R^W[xQe" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0qQ" ,   l e n ( a ) ,   " *NCQ }0s u m = " ,   s u m } , 
 
     t 0 = c l o c k ( ) ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 ,   s t r [ 1 ] = i , 
 
         j = 1 0 0 0 ,   w h i l e { j < 2 0 0 0 ,   s t r [ 2 ] = j ,   s u m = s u m + a . s t r ,   j + + } 
 
     } , 
 
     o { " \ r \ n gW[xQe" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0qQ" ,   l e n ( a ) ,   " *NCQ }0s u m = " ,   s u m ,   " \ r \ n " } ; 
 
 
 
         ~g
 
 
 
 R^W[xQe0 . 8 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 y0qQ1 0 0 0 0 0 *NCQ }0s u m = 1 5 5 0 0 0 0 0 0 
 
 gW[xQe9 . 4 e - 0 0 2 y0qQ1 0 0 0 0 0 *NCQ }0s u m = 1 5 5 0 0 0 0 0 0 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t [ " a " : 2 ,   " b " : 8 ,   . . . ] ubW[xQ[av^RYS0ЏL1 W[xQCQ }
N9SM2 W[xQCQ }v.^:NW[&{2N3 QX[0  
 
 
 
   s y s : : d i c t tepe8^ϑ(u(WQpen e w [ s y s : : d i c t , . . .   . . . ] -N3uW[xQ[a0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d i c t   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   d i c t   n e w Qpe/f͑}Qpe(uN3uW[xQ[a0 N,(uln e w [ s y s : : d i c t ,   " a " : 2 ,   " b " : 8 ,   . . .   . . . ] 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d i c t   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   d i c t   o Qpe/f͑}Qpe0QW[xQvQ[0ЏL1 
NSƋ+R[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d i c t   o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   d i c t   o s e t Qpe/f͑}Qpe0a /f N*NW[xQRgbLb_Ya . " b " = 2 vK<PSe\(uQpe0ЏL1 Spe*YYb*Y\2 
NSƋ+R[a3 ^lvW[&{2N4 QX[0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d i c t   o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   d i c t   o g e t Qpe/f͑}Qpe0a /f N*NW[xQRgbLb_Ya . " b " vSe\(uQpe_W[xQCQ }v<P0ЏL1 Spe*YYb*Y\2 
NSƋ+R[a3 ^lvW[&{2N0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # d i c t   l e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   d i c t   l e n Qpe/f͑}Qpe0a /f N*NW[xQl e n ( a ) Bla v@b	gCQ }pev0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t _ o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t _ o s e t [ p : " a " , 2 ] nW[xQp vCQ }" a " v<P:N2 0ЏL1 Spe*YYb*Y\2 
NSƋ+R[a3 ^lvW[&{2N4 QX[0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t _ o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t _ o g e t [ p : " a " ] _W[xQp vCQ }" a " v<P0ЏL1 Spe*YYb*Y\2 
NSƋ+R[a3 ^lvW[&{2N0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t _ d e l { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t _ d e l [ p : " a " , " b c " , . . . ]  RdW[xQp vCQ }" a " , " b c " , . . . 0ЏL1 Spe*Y\2 
NSƋ+R[a3 ^lvW[&{2N0    
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t _ c l e a r { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t _ c l e a r [ p ] nzzW[xQp v@b	gCQ }0ЏL1 
NSƋ+R[a0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : d i c t _ r e v e r s e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : d i c t _ r e v e r s e [ p ]   W[xQS^0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # ~gs t r u c t { 
 
 [ L u S y s t e m 3 2 . d l l ]   ~gs t r u c t 
 
 
 
         ~gs t r u c t 	/f N*N~'`hSNX[>er^NavL u penc0~gbXT_{N#  _4Y0~gbXTvX[Pz^NvQ[INz^
N N[vT0
 
 
 
         1 	e^~gvS_N~g[IN
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 n e w [ s t r u c t ,   # n u m ,   # Y
T  :   " l u u u " ,   # t^] . o [ ] ;         / / (uQpen e w ub~g	g3 *NbXTvQ-N Y
T bXTۏLNRYS0Qpeo (uNQ~g0
 
 
 
         (uQpes t r u c t ub~gf:NeO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 s t r u c t [ # n u m ,   # Y
T  :   " l u u u " ,   # t^] . o [ ] ;                 / / (uQpen e w ub~g	g3 *NbXTvQ-N Y
T bXTۏLNRYS0Qpeo (uNQ~g0
 
 
 
         2 	
Y6R~gvS_Nub~g[a
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = s t r u c t [ # n u m ,   # Y
T  :   " l u u u " ,   # t^] ,   o [ a , " \ r \ n " , c o p y ( a ) , " \ r \ n " , c o p y ( a ,   # n u m : 2 2 ,   # t^: 3 3 ) , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 s t r u c t { # n u m   :   n i l   ,   # Y
T  :   l u u u   ,   # t^  :   n i l } 
 
 s t r u c t { # n u m   :   n i l   ,   # Y
T  :   l u u u   ,   # t^  :   n i l } 
 
 s t r u c t { # n u m   :   2 2   ,   # Y
T  :   l u u u   ,   # t^  :   3 3 } 
 
 
 
         3 	
Y6R~gBl	gvTv~gbXTO!k
Y6R~gbXTv<P
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , b ) =   a = s t r u c t [ # n u m   :   5 5 ,   # Y
T  :   " l u u u " ,   # t^  :   3 3 ] ,   b = s t r u c t [ # n u m ,   # Y
T,   # t^] ,   b . = a ,   o [ a , " \ r \ n " , b , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 s t r u c t { # n u m   :   5 5   ,   # Y
T  :   l u u u   ,   # t^  :   3 3 } 
 
 s t r u c t { # n u m   :   5 5   ,   # Y
T  :   l u u u   ,   # t^  :   3 3 } 
 
 
 
         4 	n~gybϑ[~gbXTK<Pla!k^/fNavv^NSnRbXTbhQbXT
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = s t r u c t [ # n u m ,   # Y
T,   # t^] ,   o [ a , " \ r \ n " ] ,   a . s e t ( # t^: 3 3 ,   # n u m : 2 2 ) . o [ " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 s t r u c t { # n u m   :   n i l   ,   # Y
T  :   n i l   ,   # t^  :   n i l } 
 
 s t r u c t { # n u m   :   2 2   ,   # Y
T  :   n i l   ,   # t^  :   3 3 } 
 
 
 
         5 	~gbXTUSrK<PS~gbXTv<P
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = s t r u c t [ # n u m ,   # Y
T,   # t^] ,   a . # Y
T= " s:_" ,   a . # t^= 3 3 ,   a . # n u m = 2 2 ,   o [ a , " \ r \ n " , a . # Y
T, " \ r \ n " , a . # t^, " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 s t r u c t { # n u m   :   2 2   ,   # Y
T  :   s:_  ,   # t^  :   3 3 } 
 
 s:_
 
 3 3 
 
 
 
         6 	~gL]WY
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a ) =   a = s t r u c t [ # n u m ,   # s~] ,   a . # n u m = 2 2 ,   a . # s~= s t r u c t [ # n u m ,   # Y
T,   # t^] , 
 
     a . # s~. # n u m = 8 8 , 
 
     a . # s~. # Y
T= " s:_" , 
 
     a . # s~. # t^= 3 3 , 
 
     o [ a , " \ r \ n " , a . # n u m , " \ r \ n " , a . # s~, " \ r \ n " , a . # s~. # n u m , " \ r \ n " , a . # s~. # Y
T, " \ r \ n " , a . # s~. # t^, " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 s t r u c t { # n u m   :   2 2   ,   # s~  :   s t r u c t [ . . . ] } 
 
 2 2 
 
 s t r u c t { # n u m   :   8 8   ,   # Y
T  :   s:_  ,   # t^  :   3 3 } 
 
 8 8 
 
 s:_
 
 3 3 
 
 
 
         7 	HesKmՋ
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , t 0 , s u m ) = 
 
     a = s t r u c t { 
 
         # J a n u a r y , 
 
         # F e b r u a r y , 
 
         # M a r c h , 
 
         # A p r i l , 
 
         # M a y , 
 
         # J u n e , 
 
         # J u l y , 
 
         # A u g u s t , 
 
         # S e p t e m b e r , 
 
         # O c t o b e r , 
 
         # N o v e m b e r , 
 
         # D e c e m b e r 
 
     } , 
 
     t 0 = c l o c k ( ) ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 0 0 0 , 
 
         a . # J a n u a r y = 1 , 
 
         a . # F e b r u a r y = 2 , 
 
         a . # M a r c h = 3 , 
 
         a . # A p r i l = 4 , 
 
         a . # M a y = 5 , 
 
         a . # J u n e = 6 , 
 
         a . # J u l y = 7 , 
 
         a . # A u g u s t = 8 , 
 
         a . # S e p t e m b e r = 9 , 
 
         a . # O c t o b e r = 1 0 , 
 
         a . # N o v e m b e r = 1 1 , 
 
         a . # D e c e m b e r = 1 2 , 
 
         s u m = s u m + a . # J a n u a r y + a . # F e b r u a r y + a . # M a r c h + a . # A p r i l + a . # M a y + a . # J u n e + a . # J u l y + a . # A u g u s t + a . # S e p t e m b e r + a . # O c t o b e r + a . # N o v e m b e r + a . # D e c e m b e r 
 
     } , 
 
     o { " \ r \ n e" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0s u m = " ,   s u m ,   " \ r \ n " } ; 
 
 
 
         ~g
 
 
 
 e0 . 7 5 y0s u m = 7 8 0 0 0 0 0 
 
 
 
         O(uQpes t r u c t _ o s e t Ts t r u c t _ o g e t X[S~gbXTOcOЏLHesYNO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , t 0 , s u m ) = 
 
     a = s t r u c t { 
 
         # J a n u a r y , 
 
         # F e b r u a r y , 
 
         # M a r c h , 
 
         # A p r i l , 
 
         # M a y , 
 
         # J u n e , 
 
         # J u l y , 
 
         # A u g u s t , 
 
         # S e p t e m b e r , 
 
         # O c t o b e r , 
 
         # N o v e m b e r , 
 
         # D e c e m b e r 
 
     } , 
 
     t 0 = c l o c k ( ) ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 0 0 0 , 
 
         a . s t r u c t _ o s e t [ # J a n u a r y   :   1 ] , 
 
         a . s t r u c t _ o s e t [ # F e b r u a r y   :   2 ] , 
 
         a . s t r u c t _ o s e t [ # M a r c h   :   3 ] , 
 
         a . s t r u c t _ o s e t [ # A p r i l   :   4 ] , 
 
         a . s t r u c t _ o s e t [ # M a y   :   5 ] , 
 
         a . s t r u c t _ o s e t [ # J u n e   :   6 ] , 
 
         a . s t r u c t _ o s e t [ # J u l y   :   7 ] , 
 
         a . s t r u c t _ o s e t [ # A u g u s t   :   8 ] , 
 
         a . s t r u c t _ o s e t [ # S e p t e m b e r   :   9 ] , 
 
         a . s t r u c t _ o s e t [ # O c t o b e r   :   1 0 ] , 
 
         a . s t r u c t _ o s e t [ # N o v e m b e r   :   1 1 ] , 
 
         a . s t r u c t _ o s e t [ # D e c e m b e r   :   1 2 ] , 
 
         s u m = s u m + a . s t r u c t _ o g e t [ # J a n u a r y ] + a . s t r u c t _ o g e t [ # F e b r u a r y ] + a . s t r u c t _ o g e t [ # M a r c h ] + a . s t r u c t _ o g e t [ # A p r i l ] + a . s t r u c t _ o g e t [ # M a y ] + a . s t r u c t _ o g e t [ # J u n e ] + a . s t r u c t _ o g e t [ # J u l y ] + a . s t r u c t _ o g e t [ # A u g u s t ] + a . s t r u c t _ o g e t [ # S e p t e m b e r ] + a . s t r u c t _ o g e t [ # O c t o b e r ] + a . s t r u c t _ o g e t [ # N o v e m b e r ] + a . s t r u c t _ o g e t [ # D e c e m b e r ] 
 
     } , 
 
     o { " \ r \ n e" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0s u m = " ,   s u m ,   " \ r \ n " } ; 
 
 
 
         ~g
 
 
 
 e0 . 5 6 2 0 0 0 0 0 0 0 0 0 0 0 0 0 6 y0s u m = 7 8 0 0 0 0 0 
 
 
 
         M a t l a b 2 0 0 9 a Nx
 
 
 
 a = s t r u c t ( ' J a n u a r y ' , 1 , ' F e b r a r y ' , 2 , ' M a r c h ' , 3 , ' A p r i l ' , 4 , ' M a y ' , 5 , ' J u n e ' , 6 , ' J u l y ' , 7 , ' A u g u s t ' , 8 , ' S e p t e m b e r ' , 9 , ' O c t o b e r ' , 1 0 , ' N o v e m b e r ' , 1 1 , ' D e c e m b e r ' , 1 2 ) ; 
 
 t i c ;   
 
 s u m = 0 ; 
 
 f o r   i = 1 : 1 0 0 0 0 0 
 
         a . J a n u a r y = 1 ; 
 
         a . F e b r u a r y = 2 ; 
 
         a . M a r c h = 3 ; 
 
         a . A p r i l = 4 ; 
 
         a . M a y = 5 ; 
 
         a . J u n e = 6 ; 
 
         a . J u l y = 7 ; 
 
         a . A u g u s t = 8 ; 
 
         a . S e p t e m b e r = 9 ; 
 
         a . O c t o b e r = 1 0 ; 
 
         a . N o v e m b e r = 1 1 ; 
 
         a . D e c e m b e r = 1 2 ; 
 
         s u m = s u m + a . J a n u a r y + a . F e b r u a r y + a . M a r c h + a . A p r i l + a . M a y + a . J u n e + a . J u l y + a . A u g u s t + a . S e p t e m b e r + a . O c t o b e r + a . N o v e m b e r + a . D e c e m b e r ; 
 
 e n d 
 
 t o c , 
 
 s u m 
 
 
 
         ~g
 
 
 
 E l a p s e d   t i m e   i s   3 . 2 7 5 7 4 3   s e c o n d s . 
 
 
 
 s u m   = 
 
 
 
 7 8 0 0 0 0 0   
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r u c t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r u c t [ # a ,   # b : 8 ,   . . . ] ub~g[av^RYS  ~gbXT_{N#  _4Y0ЏL1 ^lv~gbXT2 ~gbXT͑
T0  
 
 
 
   s y s : : s t r u c t tepe8^ϑ(u(WQpen e w [ s y s : : s t r u c t , . . .   . . . ] -N3u~g[a0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   n e w Qpe/f͑}Qpe(uN3u~g[a0 N,(uln e w [ s y s : : s t r u c t ,   # a ,   # b : 8 ,   . . . ] 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   o Qpe/f͑}Qpe0Q~gvQ[0ЏL1 
NSƋ+R[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   o s e t Qpe/f͑}Qpe0a /f N*N~gRgbLb_Ya . # b = 2 vK<PSe\(uQpe0ЏL1 Spe*Y\2 
NSƋ+R[abbXT3 l	g~b0RbXT0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   o g e t Qpe/f͑}Qpe0a /f N*N~gRgbLb_Ya . # b vSe\(uQpe_~gbXTv<P0ЏL1 Spe*Y\2 
NSƋ+R[abbXT3 l	g~b0RbXT0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   l e n { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   l e n Qpe/f͑}Qpe0a /f N*N~gl e n ( a ) Bla v@b	gbXTpev0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   c o p y { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   c o p y Qpe/f͑}Qpe0a Tb /f~gc o p y ( a ) Bla voR,gc o p y ( a , b ) 
Y6Rb vQ[0Ra gbLa . = b e\ꁨR(uQpe	c o p y ( a :   # a b , 2 ,   # b : 8 ,   . . . ) Bla voR,gv^ۏLRYSRYSSpeb[0ЏL1 
NSƋ+R[a  2 [a~g
NvT3 ^lvbXThƋ4 l	g~b0RbXT5 Spe
N9SM0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s t r u c t   s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s t r u c t   s e t Qpe/f͑}Qpen~gvbXT0a /f N*N~ga . s e t ( # a b , 2 ,   # b : 8 ,   . . . ) na vbXTlaSpeb[0ЏL1 Spe*Y\2 
NSƋ+R[a  3 ^lvbXThƋ4 l	g~b0RbXT5 Spe
N9SM0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r u c t _ o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r u c t _ o s e t [ p , # b   :   2 ] n~gp vbXT# b v<P:N2 0ЏL1 Spe*Y\2 
NSƋ+R[abbXT3 l	g~b0RbXT0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : s t r u c t _ o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : s t r u c t _ o g e t [ p , # b ]   _~gp vbXT# b v<P0ЏL1 Spe*Y\2 
NSƋ+R[abbXT3 l	g~b0RbXT0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # {|c l a s s { 
 
 [ L u S y s t e m 3 2 . d l l ]   {|c l a s s 
 
 
 
         {|c l a s s 	/f N*NwQ	gpencbXTTelbXTvꁚ[INpenc~g0{|SN~bT>mu{|vB\!k~g/f Nhh0
 
 
 
         {|[ao b j 	/f{|v[O0
 
 
 
         1 	{|[IN
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 n e w [ c l a s s ,   # N,   p u b l i c   :   # Y
T,   p r i v a t e   :   # '`+R,   # t^] . o [ ] ;         / / (uQpen e w [IN{|	g1 *NlQ	gbXT2 *Ny	gbXT0Qpeo (uNQ{|[IN0
 
 
 
         ~g
 
 
 
 c l a s s { # N  :   
 
 p r i v a t e : 
 
     # '`+R,   # t^,   
 
 p u b l i c : 
 
     # Y
T,   
 
 m e t h o d : 
 
     # _ _ i n i t _ _   :   0 ,   # _ _ d e l _ _   :   0 
 
 } 
 
 
 
         (uQpec l a s s [IN{|f:NeO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 c l a s s [ # N,   p u b l i c   :   # Y
T,   p r i v a t e   :   # '`+R,   # t^] . o [ ] ;         / / (uQpen e w [IN{|	g1 *NlQ	gbXT2 *Ny	gbXT0Qpeo (uNQ{|[IN0
 
 
 
         Q~gN
NbvT0
 
 
 
         2 	US N~b
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 c l a s s [ # N,   p u b l i c   :   # Y
T,   p r i v a t e   :   # '`+R,   # t^] , 
 
 c l a s s [ # f[u,   # N,   p u b l i c   :   # f[!h,   # s~] . o [ ] ; 
 
 
 
         ~g
 
 
 
 c l a s s { # f[u  :   # N, 
 
 p r i v a t e : 
 
 
 
 p u b l i c : 
 
     # f[!h,   # s~,   
 
 m e t h o d : 
 
     # _ _ i n i t _ _   :   0 ,   # _ _ d e l _ _   :   0 
 
 } 
 
 
 
         3 	{|[a
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , b ) = 
 
     c l a s s [ # N,   p u b l i c   :   # Y
T,   # '`+R,   # t^] , 
 
     a = c l a s s [ # f[u,   # N,   p u b l i c   :   # f[!h,   # s~] , 
 
     b = o b j [ a ] , 
 
     b . # f[!h= " [-Nf[" ,   b . # s~= " Nt^~" ,   b . # Y
T= " s:_" ,   b . # '`+R= " 7u" ,   b . # t^= 1 2 , 
 
     o [ b ,   b . # f[!h, "     " ,   b . # s~, "     " ,   b . # Y
T, "     " ,   b . # '`+R,   "     " ,   b . # t^,   " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 c l a s s   o b j { # f[u  :   # N, 
 
 p r i v a t e : 
 
 p u b l i c : 
 
     # f[!h  :   [-Nf[, 
 
     # s~  :   Nt^~
 
 } 
 
 [-Nf[  Nt^~  s:_  7u  1 2 
 
 
 
         fYgW{| # N -N# '`+RT# t^[IN:Ny	gbXT\elvcۏLX[S0
 
 
 
         4 	Y͑~bSg QpeTggQpe
 
 
 
         OP[1 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 i n i t A ( p ) =   o [ " \ r \ n A vg Qpe! " ] ; 
 
 i n i t B ( p ) =   o [ " \ r \ n B vg Qpe! " ] ; 
 
 i n i t C ( p ) =   o [ " \ r \ n C vg Qpe! " ] ; 
 
 i n i t D ( p ) =   o [ " \ r \ n D vg Qpe! " ] ; 
 
 d e l A ( p )   =   o [ " \ r \ n A vggQpe! " ] ; 
 
 d e l B ( p )   =   o [ " \ r \ n B vggQpe! " ] ; 
 
 d e l C ( p )   =   o [ " \ r \ n C vggQpe! " ] ; 
 
 d e l D ( p )   =   o [ " \ r \ n D vggQpe! " ] ; 
 
 m a i n ( ) = 
 
     c l a s s [ # A ,                   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t A ,   # _ _ d e l _ _   :   @ d e l A ] , 
 
     c l a s s [ # B ,   # A ,           m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t B ,   # _ _ d e l _ _   :   @ d e l B ] , 
 
     c l a s s [ # C ,   # A ,           m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t C ,   # _ _ d e l _ _   :   @ d e l C ] , 
 
     c l a s s [ # D ,   # B ,   # C ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t D ,   # _ _ d e l _ _   :   @ d e l D ] . o b j [ ] . d e l e t e [ ] ; 
 
 
 
         ~g
 
 
 
 A vg Qpe! 
 
 B vg Qpe! 
 
 A vg Qpe! 
 
 C vg Qpe! 
 
 D vg Qpe! 
 
 D vggQpe! 
 
 B vggQpe! 
 
 A vggQpe! 
 
 C vggQpe! 
 
 A vggQpe! 
 
 
 
         OP[2 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 i n i t A ( p ) =   p . # a = 0 ; 
 
 i n i t B ( p ) =   p . # a = 1 ; 
 
 i n i t C ( p ) =   p . # a = 2 ; 
 
 i n i t D ( p ) =   p . # a = 3 ; 
 
 m a i n ( : c ) = 
 
     c l a s s [ # A ,                       p u b l i c :   # a ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t A ] , 
 
     c l a s s [ # B ,   # A ,               p u b l i c :   # a ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t B ] , 
 
     c l a s s [ # C ,   # A ,               p u b l i c :   # a ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t C ] , 
 
     c = c l a s s [ # D ,   # B ,   # C ,   p u b l i c :   # a ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t D ] . o b j [ ] , 
 
     o [ c . # a , "     " , c . # B . # a , "     " , c . # C . # a , "     " , c . # B . # A . # a , "     " , c . # C . # A . # a , " \ r \ n " ] , 
 
     c . # B . # A . # a = 5 ,   c . # C . # A . # a = 6 ,   o [ c . # B . # A . # a , "     " , c . # C . # A . # a , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 3   1   2   0   0 
 
 5   6 
 
 
 
         OP[3 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 i n i t A ( p ) =   p . # a = 0 ; 
 
 i n i t B ( p ) =   p . # b = 1 ; 
 
 i n i t C ( p ) =   p . # c = 2 ; 
 
 i n i t D ( p ) =   p . # d = 3 ; 
 
 m a i n ( : c ) = 
 
     c l a s s [ # A ,                       p u b l i c :   # a ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t A ] , 
 
     c l a s s [ # B ,   # A ,               p u b l i c :   # b ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t B ] , 
 
     c l a s s [ # C ,   # A ,               p u b l i c :   # c ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t C ] , 
 
     c = c l a s s [ # D ,   # B ,   # C ,   p u b l i c :   # d ,   m e t h o d   :   # _ _ i n i t _ _   :   @ i n i t D ] . o b j [ ] , 
 
     o [ c . # a , "     " , c . # b , "     " , c . # c , "     " , c . # d , " \ r \ n " ] , 
 
     c . # a = 5 ,   c . # b = 6 ,   c . # c = 7 ,   c . # d = 8 , 
 
     o [ c . # a , "     " , c . # b , "     " , c . # c , "     " , c . # d , " \ r \ n " ] , 
 
     c . # B . # A . # a = 1 1 ,   c . # C . # A . # a = 1 2 ,   o [ c . # a , "   " , c . # B . # A . # a , "     " , c . # C . # A . # a , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 0   1   2   3 
 
 5   6   7   8 
 
 1 1   1 1   1 2 
 
 
 
         5 	bXTQpe,{ N*NSpe:N[ac
 
 
 
         OP[1 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 s e t A ( p , x ) =   p . # a = x ; 
 
 s e t B ( p , x ) =   p . # a = x ; 
 
 s e t C ( p , x ) =   p . # a = x ; 
 
 g e t A ( p ) =   p . # a ; 
 
 g e t B ( p ) =   p . # a ; 
 
 g e t C ( p ) =   p . # a ; 
 
 m a i n ( : c ) = 
 
     c l a s s [ # A ,                       p r i v a t e :   # a ,   m e t h o d   :   # m G e t A   :   @ g e t A ,   # m S e t A   :   @ s e t A ] , 
 
     c l a s s [ # B ,                       p r i v a t e :   # a ,   m e t h o d   :   # m G e t B   :   @ g e t B ,   # m S e t B   :   @ s e t B ] , 
 
     c = c l a s s [ # C ,   # A ,   # B ,   p r i v a t e :   # a ,   m e t h o d   :   # m G e t C   :   @ g e t C ,   # m S e t C   :   @ s e t C ] . o b j [ ] , 
 
     c . # m S e t A = 5 ,   c . # m S e t B = 6 ,   c . # m S e t C = 7 , 
 
     o [ c . # m G e t A , "     " , c . # m G e t B , "     " , c . # m G e t C , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 5   6   7 
 
 
 
         f{|velbXTTpencbXT(ulQNNvTFOelSNcSY*NSpeYNO0
 
 
 
         OP[2 
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 o u t ( p , x , y , z ) =   o [ x , y , z , " \ r \ n " ] ; 
 
 m a i n ( : c ) = 
 
     c = c l a s s [ # A ,   m e t h o d   :   # m O u t   :   @ o u t ] . o b j [ ] , 
 
     c . # m O u t   : =   [ 5 , 6 , 7 ] , 
 
     c . # m O u t . " * * * " . ( 8 8 8 ) . " * * * " ; 
 
 
 
         ~g
 
 
 
 5 6 7 
 
 * * * 8 8 8 * * * 
 
 
 
         6 	{|[a
Y6R
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 s e t A ( p , x , y ) =   p . # a = x ,   p . # b = y ; 
 
 s u m A ( p ) =   p . # a + p . # b ; 
 
 c o p y A B ( s , t ) =   s . # a = t . # a ,   s . # b = t . # b ; 
 
 c l a s s [ # A ,           p r i v a t e   :   # a ,   p u b l i c   :   # b ,   m e t h o d   :   # _ _ c o p y _ _   :   @ c o p y A B ,   # s e t A   :   @ s e t A ,   # s u m A   :   @ s u m A ] , 
 
 c l a s s [ # B ,   # A ,   p r i v a t e   :   # a ,   p u b l i c   :   # b ,   m e t h o d   :   # _ _ c o p y _ _   :   @ c o p y A B ] ; 
 
 m a i n ( : a , b ) = 
 
     a = o b j [ c l a s s _ h a n d l e ( # B ) ] ,   b = o b j [ c l a s s _ h a n d l e ( # B ) ] , 
 
     a . # a = 1 ,   a . # b = 2 ,   a . # s e t A : = [ 8 , 9 ] , 
 
     b . = a , 
 
     b . # a + b . # b + b . # s u m A ; 
 
 
 
         ~g
 
 
 
 2 0 
 
 
 
         7 	Y`'`
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 g e t A ( ) =   1 ; 
 
 g e t B ( ) =   2 ; 
 
 g e t C ( ) =   3 ; 
 
 c l a s s [ # A ,           m e t h o d   :   # m G e t   :   @ g e t A ] , 
 
 c l a s s [ # B ,   # A ,   m e t h o d   :   # m G e t   :   @ g e t B ] , 
 
 c l a s s [ # C ,   # B ,   m e t h o d   :   # m G e t   :   @ g e t C ] ; 
 
 m a i n ( : a , b , c ) = 
 
     c = o b j [ c l a s s _ h a n d l e ( # C ) ] , 
 
     o [ c . # m G e t , "     " , c . # B . # m G e t , "     " , c . # B . # A . # m G e t , " \ r \ n " ] , 
 
     b = c . # B ,   a = b . # A ,     / / _W{|[a
 
     o [ c . # m G e t , "     " , b . # m G e t , "     " , a . # m G e t , " \ r \ n " ] ; 
 
 
 
         ~g
 
 
 
 3   2   1 
 
 3   2   1 
 
 
 
         8 	HesKmՋ
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , t 0 , s u m ) = 
 
     a = c l a s s { # A , 
 
         p u b l i c : 
 
         # J a n u a r y , 
 
         # F e b r u a r y , 
 
         # M a r c h , 
 
         # A p r i l , 
 
         # M a y , 
 
         # J u n e , 
 
         # J u l y , 
 
         # A u g u s t , 
 
         # S e p t e m b e r , 
 
         # O c t o b e r , 
 
         # N o v e m b e r , 
 
         # D e c e m b e r 
 
     } . o b j [ ] , 
 
     t 0 = c l o c k ( ) ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 0 0 0 , 
 
         a . # J a n u a r y = 1 , 
 
         a . # F e b r u a r y = 2 , 
 
         a . # M a r c h = 3 , 
 
         a . # A p r i l = 4 , 
 
         a . # M a y = 5 , 
 
         a . # J u n e = 6 , 
 
         a . # J u l y = 7 , 
 
         a . # A u g u s t = 8 , 
 
         a . # S e p t e m b e r = 9 , 
 
         a . # O c t o b e r = 1 0 , 
 
         a . # N o v e m b e r = 1 1 , 
 
         a . # D e c e m b e r = 1 2 , 
 
         s u m = s u m + a . # J a n u a r y + a . # F e b r u a r y + a . # M a r c h + a . # A p r i l + a . # M a y + a . # J u n e + a . # J u l y + a . # A u g u s t + a . # S e p t e m b e r + a . # O c t o b e r + a . # N o v e m b e r + a . # D e c e m b e r 
 
     } , 
 
     o { " \ r \ n e" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0s u m = " ,   s u m ,   " \ r \ n " } ; 
 
 
 
         ~g
 
 
 
 e0 . 8 5 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 y0s u m = 7 8 0 0 0 0 0 
 
 
 
         kMRbO(us t r u c t ve0 . 7 5 yEec l a s s ks t r u c t 
zba0
 
 
 
         O(uQpeo b j _ o s e t To b j _ o g e t X[S{|bXTOcOЏLHesYNO
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 m a i n ( : a , i , t 0 , s u m ) = 
 
     a = c l a s s { # A , 
 
         p u b l i c : 
 
         # J a n u a r y , 
 
         # F e b r u a r y , 
 
         # M a r c h , 
 
         # A p r i l , 
 
         # M a y , 
 
         # J u n e , 
 
         # J u l y , 
 
         # A u g u s t , 
 
         # S e p t e m b e r , 
 
         # O c t o b e r , 
 
         # N o v e m b e r , 
 
         # D e c e m b e r 
 
     } . o b j [ ] , 
 
     t 0 = c l o c k ( ) ,   s u m = 0 , 
 
     i = 0 ,   w h i l e { + + i < = 1 0 0 0 0 0 , 
 
         a . o b j _ o s e t [ # J a n u a r y   :   1 ] , 
 
         a . o b j _ o s e t [ # F e b r u a r y   :   2 ] , 
 
         a . o b j _ o s e t [ # M a r c h   :   3 ] , 
 
         a . o b j _ o s e t [ # A p r i l   :   4 ] , 
 
         a . o b j _ o s e t [ # M a y   :   5 ] , 
 
         a . o b j _ o s e t [ # J u n e   :   6 ] , 
 
         a . o b j _ o s e t [ # J u l y   :   7 ] , 
 
         a . o b j _ o s e t [ # A u g u s t   :   8 ] , 
 
         a . o b j _ o s e t [ # S e p t e m b e r   :   9 ] , 
 
         a . o b j _ o s e t [ # O c t o b e r   :   1 0 ] , 
 
         a . o b j _ o s e t [ # N o v e m b e r   :   1 1 ] , 
 
         a . o b j _ o s e t [ # D e c e m b e r   :   1 2 ] , 
 
         s u m = s u m + a . o b j _ o g e t [ # J a n u a r y ] + a . o b j _ o g e t [ # F e b r u a r y ] + a . o b j _ o g e t [ # M a r c h ] + a . o b j _ o g e t [ # A p r i l ] + a . o b j _ o g e t [ # M a y ] + a . o b j _ o g e t [ # J u n e ] + a . o b j _ o g e t [ # J u l y ] + a . o b j _ o g e t [ # A u g u s t ] + a . o b j _ o g e t [ # S e p t e m b e r ] + a . o b j _ o g e t [ # O c t o b e r ] + a . o b j _ o g e t [ # N o v e m b e r ] + a . o b j _ o g e t [ # D e c e m b e r ] 
 
     } , 
 
     o { " \ r \ n e" ,   [ c l o c k ( ) - t 0 ] / 1 0 0 0 . ,   " y0s u m = " ,   s u m ,   " \ r \ n " } ; 
 
 
 
         ~g
 
 
 
 e0 . 6 2 5 y0s u m = 7 8 0 0 0 0 0   
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : c l a s s { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : c l a s s { . . .   . . . } R^{|[IN
 
 
 
   s y s : : c l a s s tepe8^ϑ(u(WQpen e w [ s y s : : c l a s s , . . .   . . . ] -N3u{|[IN0  
 
 
 
         {|[IN<h_YN
 
 
 
 c l a s s { # c M y C l a s s :   # c B a s e 1 ,   # c B a s e 2 ,   . . .     / / [IN{|c M y C l a s s ~bc B a s e 1 Tc B a s e 2 ,   . . . 
 
 p r i v a t e :                                     / / y	gpencbXT
 
     # p v M e m 1 ,   # p v M e m 2 ,   . . . 
 
 p u b l i c :                                       / / lQ	gpencbXT
 
     # p l M e m 1 ,   # p l M e m 2 ,   . . . 
 
 m e t h o d :                                       / / elQpebXT	
 
     # _ _ i n i t _ _   :   @ i n i t ,   # _ _ d e l _ _   :   @ d e l m e ,   # m F u n 1   @ F u n 1 ,   # m F u n 2   @ F u n 2 ,   . . . 
 
 } ; 
 
 
 
         {|[IN-N{|
Ty0W{|
Ty0bXTSel/fN#  _4YvhƋ&{
NS͑
Y0{|
Ty(W gMRbvQ!k/fW{|
Typ r i v a t e 0p u b l i c Sm e t h o d v!k^/fNavNSY!k[INelhƋ&{T_{cOQpeSg0{|bXTvX[Pz^NvQ[INz^
N N[vT0
 
 
 
         # _ _ i n i t _ _ T# _ _ d e l _ _ SS[IN:NelvQ-N# _ _ i n i t _ _ (uN[INg Qpe# _ _ d e l _ _ (uN[INggQpe0ُ$N*Nel:wvQQpeSgꁨRc[:N0 0g QpeTggQpeS	g N*NSpesS[a,g0
 
 
 
         傹el	g
Nbk N*NSpeRel(ue,{ N*NSpe;`/f OeQ[a,gvS_NC + + vt h i s c0
 
 
 
         ЏL1 ^lv{|
T2 _ _ i n i t _ _ T_ _ d e l _ _ S/felbXT3 {|
TbW{|
T	g͑
T4 
NSƋ+RsQ.W[5 :\QpeSg6 
NSƋ+RsQ.W[bbXT7 W{|l	g[INb_s[IN0
 
 
 
         ~[{|
TyNW[kc  _4Yy	gpencbXTNp v  _4YlQ	gpencbXTNp l  _4YelbXTNm  _4Y0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : o b j { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : o b j ( p C l a s s ) R^{|[a
 
 
 
   s y s : : o b j tepe8^ϑ(u(WQpen e w [ s y s : : o b j , p c l a s s , . . .   . . . ] -N3u{|[avQ-Np c l a s s /f{|[IN0  
 
 
 
         p C l a s s /f{|[INvSg0
 
 
 
         R^{|[ae\ꁨR(uk N*NW{|vg Qpe# _ _ i n i t _ _ RYSW{|[a0[a ke\ꁨR(uk N*NW{|vggQpe# _ _ d e l _ _  kW{|[a0
 
 
 
         S  a . = b   \[ab vQ[
Y6R0R[aa Bla Tb wQ	gvTv{|[IN{|[IN-N[INNel# _ _ c o p y _ _ 	gNS	g2 *NSpe	\ꁨR(u勹elۏL[a
Y6R&TRNO!k
Y6R{|bXTv<P0
 
 
 
         ЏL1 
NSƋ+R{|[IN0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : o b j _ m e t h o d { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : o b j _ m e t h o d ( # F u n N a m e   :   p O b j , . . .   . . . ) (u{|[avel0
 
 
 
         # F u n N a m e N#  _4YvhƋ&{cQQpe
T0
 
         p O b j {|[a0
 
 
 
         ЏL1 Spe*Y\2 
NSƋ+RvQpehƋb[a3 
NSƋ+R{|[a4 Spe
N9SM5 ~b
N0Rc[vel0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : c l a s s _ h a n d l e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : c l a s s _ h a n d l e ( # A A ) 9hnc{|
Ty_0R{|SgSgS(u(WQpeo b j -NR^{|[a0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : o b j _ o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : o b j _ o s e t [ p , # b   :   2 ] n[ap vbXT# b v<P:N2 0ЏL1 Spe*Y\2 
NSƋ+RbXThƋ3 
NSƋ+R[ahƋ4 l	g~b0R{|bXT5 
NSƋ+Rv~g[a6 l	g~b0R~gbXT7 
NSƋ+Rpenc{|W8 bXTQpeSpe
N9SM9 
NSf9eW{|[a0    
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : o b j _ o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : o b j _ o g e t [ p , # b ] _[ap vbXT# b v<P0ЏL1 Spe*Y\2 
NSƋ+RbXThƋ3   
NSƋ+R[ahƋ4 l	g~b0R{|bXT5 
NSƋ+Rv~g[a6 l	g~b0R~gbXT7 
NSƋ+Rpenc{|W8 bXTQpeSpe
N9SM0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c l a s s   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   c l a s s   n e w Qpe/f͑}Qpe(uN3u{|[IN0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o b j   n e w { 
 
 [ L u S y s t e m 3 2 . d l l ]   o b j   n e w Qpe/f͑}Qpe(uN3u{|[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # c l a s s   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   c l a s s   o Qpe/f͑}Qpe0Q{|[INvQ[0ЏL1 
NSƋ+R[a2 ~b
N0R{|[IN0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o b j   o { 
 
 [ L u S y s t e m 3 2 . d l l ]   o b j   o Qpe/f͑}Qpe0Q{|[avQ[0ЏL1 
NSƋ+R[a2 ~b
N0R{|[IN0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o b j   o s e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   o b j   o s e t Qpe/f͑}Qpe0a /f N*N{|[aRgbLb_Ya . # b = 2 vK<PSe\(uQpe0ЏL1 Spe*Y\2 
NSƋ+RbXThƋ3 
NSƋ+R[ahƋ4 l	g~b0R{|bXT5 
NSƋ+Rv~g[a6 l	g~b0R~gbXT7 
NSƋ+Rpenc{|W8 bXTQpeSpe
N9SM9 
NSf9eW{|[a0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o b j   o g e t { 
 
 [ L u S y s t e m 3 2 . d l l ]   o b j   o g e t Qpe/f͑}Qpe0a /f N*N{|[aRgbLb_Ya . # b vSe\(uQpe_{|bXTv<P0ЏL1 Spe*Y\2 
NSƋ+RbXThƋ3   
NSƋ+R[ahƋ4 l	g~b0R{|bXT5 
NSƋ+Rv~g[a6 l	g~b0R~gbXT7 
NSƋ+Rpenc{|W8 bXTQpeSpe
N9SM0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # o b j   c o p y { 
 
 [ L u S y s t e m 3 2 . d l l ]   o b j   c o p y Qpe/f͑}Qpe0a Tb /f[ac o p y ( a , b ) 
Y6Rb vQ[0Ra gbLa . = b e\ꁨR(uQpe0ЏL1   Spe*YYb*Y\2 
NSƋ+R[a3 [a~g
NvT4 [avbXTQpe# _ _ c o p y _ _ Spe
N/f2 *N5 l	g~b0RbXTQpe# _ _ c o p y _ _ vSg0
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : n u l l { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : n u l l zzc8^ϑ0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : i s n i l { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : i s n i l ( a ) $Re N*Npenc/f&T/fn i l /fԏVt r u e &TRԏVf a l s e 0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : r e a r r a y { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : r e a r r a y ( a ) pe~~peS^Qpe(uN(WL u pe~C pe~<h_	TF o r t r a n pe~KNۏLlbc0a /f N*N[pebtepepe~0OY	N~pe~a [ 2 , 3 , 5 ] (uQpeT\b:Na [ 5 , 3 , 2 ] 0ЏL1 ^lvpe~c0    
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : S e t C u r r e n t D i r e c t o r y { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : S e t C u r r e n t D i r e c t o r y ( a ) nS_MRvU_a /f N*NW[&{2N0nbRNԏVa &TRԏVn i l 0      
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : G e t C u r r e n t D i r e c t o r y { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : G e t C u r r e n t D i r e c t o r y ( a ) _S_MRvU_a /f N*NW[&{2N(uNX[>eS_MRvU_0SbRNԏVa &TRԏVn i l 0  
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : l u f u n { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : l u f u n ( h F o r : x 1 , x 2 , . . . , x n   :   x x ) NL u hvCQ }:NSϑۏLQpe(u0
 
 
 
         h F o r :NQpeSgx 1 , x 2 , . . . , x n   :   x x :NI{vL u hx x (uNX[>e~gS:w0:wx x ԏV N*NL u hX[>e~g&TRQpeԏVx x 0QpeNx 1 , x 2 , . . . , x n v,{i *NCQ }:NSϑ(uQpeh F o r ۏL{~gX[eQx x v,{i *NUSCQ0
 
 
 
         ЏL1 \ 2 *NSpe2 c[vh_
NX[(W3 L u h*NpeNSϑ*Npe
NvI{4 
N/fL u h5 L u h^
N9SM6 QX[0
 
 
 
         OP[
 
 
 
 ! ! ! u s i n g ( " s y s " ) ; 
 
 f ( x , y ) = x + y ; 
 
 l u f u n [ @ f , l u u ( 1 . , " a a " , 5 ) , l u u ( 2 . , " b b " , 5 ) ] . o [ ] ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 # s y s : : S h e l l E x e c u t e { 
 
 [ L u S y s t e m 3 2 . d l l ]   s y s : : S h e l l E x e c u t e ( h w n d , " l p O p e r a t i o n " , " l p F i l e " , " l p P a r a m e t e r s " , " l p D i r e c t o r y " , n S h o w C m d ) gbLYz^
 
 
 
         h w n d zSSgSg/f N*Ncbn i l  N,:Nn i l 	
 
         l p O p e r a t i o n c[,g}TN@bgbLvR\O
 
         l p F i l e c[,g}TN@bd\OveN
 
         l p P a r a m e t e r s c[d\OeNe@bO(uvSpe
 
         l p D i r e c t o r y c[,g}TN@bO(uv:w_
 
         n S h o w C m d >f:ye_0
 
 
 
         ЏLbRԏV N*NtepehƋvNx&TRԏVn i l 0
 
 
 
         OP[
 
 
 
         Sb _ N*N^(uz^        s y s : : S h e l l E x e c u t e ( n i l , " o p e n " , " c a l c . e x e " , " " , " " , 0 ) ; 
 
         Sb _ N*NQu              s y s : : S h e l l E x e c u t e ( n i l , " o p e n " , " h t t p : / / w w w . f o r c a l . n e t " , " " , " " , 0 ) ; 
 
         (u|~SbpS:gSbpSechs y s : : S h e l l E x e c u t e ( n i l , " p r i n t " , " o p e n l u . i n i " , " " , " " , 0 ) ; 
 
         g~beN                      s y s : : S h e l l E x e c u t e ( n i l , " f i n d " , " " , " " , " " , 0 ) ; 
 
 } # 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 