Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Haskell / fp_lab6

.pdf
Скачиваний:
13
Добавлен:
10.06.2015
Размер:
110.56 Кб
Скачать

!

"$#&%(')#+*-,.,./10+*$2435/ 687:9 ;-<>=-?)@A@+B)%(BDC(%E24C

]*^C_UX`-V8,ba&7ZW+2&,dceV8f+*-`^WX7)0&F&ghf&%(BDC(#+*

BDC(#+*-64C(0+/lkTC(F&f&%(` UP*-0&0&/lkmR

ST%5U+VEWXFnF&,.7)g:C F&,.7)0+*4o40+*Ep&F&0+*-g:q F&7)Br2s

C-*^C(%(#&7n9:v&w(<GC(7)6xBDCy,7)0z0+*Mk\%5UXF4C({(B|2}`.%5U+VEW+2UX%MW %-C5UX7ZWX{(0

 

]

 

68%-C(%(#&%(')%TB)%(`(f+*MUP*-7DCTB F&,7)0.7)0&7),F&,.7DC({,.%5U+VEW+2#+*-BD FR

#&7)0&F&7z P 8R

 

]

 

 

f+*-64C(F&p&7)B)68%(t C(%(p&6&F 35#&7)0&F42 ,.%5U+VEWX{

H(%^WX{- %(7 %(H- 2&`^WX7)0&F&7-oE0+*Ep&F&0+*-g:q 7)7)B|2GB

f&F&,.7)# ,.%5U+VEW+2TB F&,.7)0&7),1 8 4 x +R

X - ( X \ j 8 4 x 8 4 x 4 x ( 8 4 ^¡P¢M m£¤ _ \4 -¦& j 8 4 x i j©ª 4 x ( « ­¬® 8 4 ^¡P¢E ­ 8 4 x i &

\ x ( x X¥\ M¦­ 4 x ( ±²°x³

\ x ( x X¥\ M¦­ 8 4 ^¡P¢E\ x ´( x\ X(¥\\¦M¦´X¥\Mµ(( \¦«·x·8P£¶©\ x ( x X¥\ M¦¸ X¥Mµ( 8¦

¹ºF&f® 8 4 x FY~$V80&6&a&F42s \ x ( x X¥\ M¦YH(/lWXF»`(`(7 ST%5U+VEWX{¾2&`(0&% ÀMÁxÂDÃXJ>ÄXÅ Æ-ÄXLxODÅi 8 4 x +oE 4 x #4V\7),./¾7lF43l,.%EU+V5W+2GF&,.7)0+* f&7)#&7Dp&F&BZWX2&g:C(BX - ( X \ XRxÇ.BZWXF»ÈDC(%Gf&7)#&7)p&F&BZWX7)0&F+7 0&7ºV868* f&%(#4C(FV8g:C\B|21É-Â)O F&,.7)0+*4R¤Ê *^, 7ZC({MC(7-o p4C UX%^W0&/jH(/ C({ BD')#4V8f&f&F+%(`\*-0&/$o&68*-6»` 68%(0&BDC

]

64*Ep&7)BDC(`(7 B)%(6+*^q0&%YF&B)f&%^WX{7)0&F42-35%(`\*^C({n3E*,. 7G`(%-f&F&B){»-3D[ 8 4

] ]

,.%0&% È)6xB)f&%(#4C(F+%(`\*^C({®C(%^WX{(6x%®p+*-BDC({®68%(

]

ST%5U+VEWX{ 8 47DCx CH(7)f&7)#&{/C({nÆ8I$,.%ÃXJ>ÄXÅ Æ-ÄPJMÉ^Í-Î ` 68* ,.%EU+V5WX{&Ð ]

Ñ

X - ( X \ ¶Ò+ &¥5¡ §\ + ( 4

¥5 xÓX - \¦ 8 4 x 8 4 x 4 x \ Ë 4 4 ^¡P¢E £¤ y \x x

ÊXUX7)B){$,./}2&`(0&%:V864*^3E*MWXF B)f&F&B)%(6 F&,.f&%(#4C( 7)')%&o+F&,.f&%(#4C(FV8g C(B|2 `(B)7 BDVxq 0&%(BDC\F oXÈ)6 Ôp&7)`(F8UX0&%&om7)BZWXF `®UX`-V\k F&,*^C(Br2.f&%(#4C(FV(7),#+*^3DWXF&p8[./

]

0&/¾7 BDVxq 0&%(BDC\FªB %5UX0&F&,¯F&,.7)0&7),¾o `(%-350&F&6 F435H(7*^C({G7)7 ` 2435/¾687 BDVxq 7)BDC\`-V(7)C 68WXg p&7)`(%(7

]

68%-C(%(#&%(')% %-f&7ZUX7ZW+2&g:C(B|2}C(7nF&,.f&%(#4C(FV C(%(#&/lkYf&F&%(H(#&7DC^*Ô - -¤7)64C&ØMR4Ùg:C`(F8U¤ÐP×(ST%5U+V5WX{&R*-f&F&,.7)# o-U&W+2

X - ( X \ ¶Ò+ &¥5¡ §\ + ( 4 ¥5 xÓX - \¦¸Ö- + 8 4¥M X¥- ( 8 4 x

\ x ( x X¥\ M¦ ©¶ 8 4 x \ x ( x P¥\ M¦

Ú ÛÝÜGÞlß àTá âsß ãsä¯åá ãsãTä´ç­ß!sæsä

è$B)f&%^WX{-35%(`\*-0&F&7 ,.%5U+VEWX7)t f&%-35`(%^W+2&7DC %( 0&/lkmomCERm7-RPC(F&f&/$om`(04VxC(#&7)0&04242 BDC(#4V864C(V8# C(7ZW+2 R.Ù *-f&F&,.7)# o #+*-B)B),.%-C(#&F&, f&%(BDC(7)t `(%-35`(#+*^q *-g:q F&t 7)')% 350+*Ep&7)0&F&7-Ð

X - ( X \ jéP¥\¢M¦P¥( M¡+ ( xê §\ + ( 44 -¦& jéP¥\¢M¦P¥( M¡+ ( xê«©jéP¥\¢M¦P¥( M¡+ ( xêh±- rë-¦8 X

µ4 -¦\Ò+ x ^¡m¥5¡&µíìxìnéP¥\¢M¦P¥( M¡+ ( xêdî-ïªë-¦8 X¥5¡4µ µ4 -¦\Ò+ x ^¡m¥5¡&µí±²³«ñj©ªò& ^¦\ m¥5¡4µ µ4 -¦\Ò+ x ^¡m¥5¡&µó x §+ - x ² + x -¡m¥5¡&µX£ ì²°+ 4£¨§ô

¬s ^¦\ + ( \§P¥\ ( ©jò& ^¦\ m¥5¡4

öGV80&6&a&F42»µ4 -¦\Ò+ x ^¡m¥5¡4µ®f&% 3E*MUP*-0&0&%(, V BZWX 0&%(7º350+*Ep&7)0&F&7 ÷øBºF&B)f&%^WX{-,zBZWX-35%((`\*--0&F&7),#&{f&7ZUXBDC^C(F&f+*$ B|2sB)f&F&B)68%(,¨f+*-# R

ú *-6¨B)%-3DUP*-`\*^C({zBZWX%(`\*-#&{xû7DCz%(f&7ZUX7Z["$%^WX{-35%(`\*^C(7

]

WXF4C({ ~$V80&6&a&F&gi ( x (üX - x mo-68%-C(%(#+*^2GUX%(H\*-`

`\*-#&{ FT`(%-35`(#+*^q *-7DCY,.%5UXF&~ F&a&F&%(`\*-0&0&/¾

¥5 xÓX - \¦ éP¥\¢M¦P¥( M¡+ ( xê

( x (üX - x ó éP¥\¢M¦P¥( M¡+ \ xê X¥\¢M¦P£¨§+ - x j + x ^

þ

ÊXUX7)B){zf&%^WX{-35%(`\*^C(7ZWX{}`(F8UXF4C}f&7|UXBDC-*-`^W 7DCz`(%(B)f&%^WX{-35%(`\*^C({(Br2¶ÈDC(F&,¾RÔUX0+*-6x%z`yUP*MWX{(0&7)t47),´3E*Mk\%7),¯,-C(7DC\{./Ý,.

] ] F435,.7)0&F4C({jf&7ZUXBDCf&F&B)%(6icUX%(`(%^WX{(0&%¼0&7)È)~-*-`^WX7)0&F&7ÿBZWX%(`(*-#x2 ~R 7)64 BDC(#4V864C(V4#+* UP*-0&0&/lk U&W+2Yf&%(F&B)68*4o87)BZWXF»%(0 F&B)f&%^WX{-35%(`\*^C({»k\7DF8WXFUX7)#&7)`({[²C^*ÔUX0+*-H^WXF-2 -f6x%&om7)BZWXFa&/%(F&B)68*4R f&7ZUX WX7)0&F&7»C(F&f+* éP¥\¢M¦P0&7»,¥( M¡+7),«F43),.%( 8ê %-C(67D0&F4C\{#&/C(%&o7)')%,./H(7D

]

0+*-#4Vx F4C\{Y~$V80&6&a&F&%(0&F&%(`\*-0&F&7 f&%^WX{-35%-`UX7ZWP*-7),1C(F&fséP¥\¢M¦P¥( M¡+ ( xês*-H(BDC(#+*-64C(0&/¾ WX7)t®,.%EU+V5W+2®7)')% `(04VxC(#&7)0&0&7)7Ôf&7ZUX7ZWXF&,z`f&7ZUXBDC^*,.%EU+V5WX7¾3-`^WX

^ xÓ8¦8ê\éP¥\¢M¦ o f&7ZUXBDC^*-`^W+2&g:q 757YB)%(H(%(tyf4V(x (üX - x mR ¹ %('rUP*ªf&%^WX{B),.-35%(`\*^C(7ZWXF%('DVxC¸%(H-q *^C({(Br2dB¨350+*Ep&7)0&F42& C(%^WX{(68%®B$f&%(,.%-q {(g¸#+*^35#&7D 7)0&0&/ k ~$V80&6&a

X - ( X \ jéP¥\¢M¦P¥( M¡+ ( xêý éP¥\¢M¦P¥( M¡+ ( xê µ4 -4 -¦& jéP¥\¢M¦P¥( M¡+ ( xê«©jéP¥\¢M¦P¥( M¡+ ( xêh±- rë-¦8 X

µ4 -¦\Ò+ x ^¡m¥5¡&µíìxìnéP¥\¢M¦P¥( M¡+ ( xêdî-ïªë-¦8 X¥5¡4µ µ4 -¦\Ò+ x ^¡m¥5¡&µí±²³«ñj©ªò& ^¦\ m¥5¡4µ µ4 -¦\Ò+ x ^¡m¥5¡&µó x §+ - x ² + x -¡m¥5¡&µX£ ì²°+ 4£¨§ô

¬s ^¦\ + ( \§P¥\ ( ©jò& ^¦\ m¥5¡4( x (üX - x ó éP¥\¢M¦P¥( M¡+ \ xê X¥\¢M¦P£¨§+ - x j + x ^

^ xÓ8¦8ê\éP¥\¢M¦ ©¶éP¥\¢M¦P¥( M¡+ ( 8êí±²³

H(BDC(#+*-64C(0&/¾7YC(F&f&/´UP*-0&0&/lk_f&7ZUX%(BDC^*-` 0&/lkmo 6x%-C(%(#&/¾t}0+*T2435/¾6x7»%(H- ¤7)64C(0&%^[Ë%(#&F& 0+*^35/¾`\*-7DC(B|2 F&0&68*-f&BDVEW+2&a&F&7)t R

æså¾àTá s!s! ¾ á ä á

F&BDC(7), *¶`(`(%5UP*M[Ë`(/¾`(%5UP*1`¨2435/¾687}9 ;-<>=-? %EUX0+*-6x%s0&7 V\BDC0&%(BDCE28k-V8f+*-7DC B)F&BDC(7),`s`(%-35,. *^, `(`(%EUP*E[Ë`(

]

0&/lk®2435/¾68%(`&R8Ì1F&,.f&7)#+*^C(F&`(0&/lkY2435/¾68*MkYf& BZWX7ZUX%(`\*^C(7ZWX{(0&%(BDC\{¨K^ODQXÂDÅ É^Æ+Q+oF8[6x%-C(%(#&/¾

]

,.%(7º%(6V*-g:q 7)')% ,.F+*4R(¹ºF&f&F&p&0&/¾,.F UX7)t&BDC(`(F

]

V\BDC^*-0&%(`(68*®'>WX%(H\*MWX{(0&/lkTf&7D#&7),.7)0&0&/ kmoX3E

*^C-V8#&/F CMRPU¤Rm¹ *-6&F&77G2&`^W+2&g:C(Br2UX7)t&BDC(`(F429 ;C-F<>=- -p+*6-?)@A@Ïom%5UX0+*-BDC({(g -

]

%(0&FTp&7DC(6x%Y%-C5UX7ZWX7)0&/«%-C®p&F&BDC(%Y~$V80&6&a&F&%(F&BDC(7), * `(`(%5UP*M[Ë`(/¾`(%EUP* ` 2435/¾6x7T9 ;-<>=-?

I JEÎ+ÍÔUX0+*-KMR-6x% U&W+2ÿf&%(')#+*-,.,.F&%(`\*-0&F421`(`(%E

C(#&7)H-V\7DC(B|2G0&7 H(%^WX{- 7-o5p&7), f&%(0&F&, *-0&F&7 % BDC(/lk®*-#&F&~ ,.7DC(F&p&7)B)6&F4k UX7)t&BDC(`(F&t R\"$%(ÈDC `(/¾`(%EUP* H(7D3 f&F&`-24356&FT6T,.%(0+*MUP*-,¾o&6x%-C(%( Ô f&%(,.%-q {-g¼2435/¾68* 9 ;-<>=(?)@A@xUX7)t&BDC(`(F42®%(f f&7ZUX7ZWX7)0&F&7 UX7)t&BDC(`(F42¶0&7 %-350+*Ep+*-7DCMolp4 UX7)t&BDC(`(F42 f&%(F&Brk\%5UXF4CY3E*7)0&F&t#+*-R,.64*-,.Fs`(/¾p&F

]

ÕG7)t&BDC(`(F42 2&`^W+2&g:C(Br2iWXF&H(%¶*^C(%(, *-#&0&/¾, B)F&BDC(7),.0+/lk f&F&,.F4C(F&`(%(`&o4WXF&H(% f&%(BZWX7ZUX% UX7)t&BDC(`(F&t R&ST%(0+*MUP*F4C `(`(%5UP*M[Ë`(/¾`(%EUP*f&F&,.F4C(F&`(/$o868%B)%5UX7)-C(%(#&/

]

g:C_B)%-3DUP*-`\*^C({yB)%(BDC-*-`(0&/¾7nUX7)t&BDC(`(F42 ol*-0 f&7)#+*^C(F&`(0&/lkT2435/¾68*MkmRPST%(0+*MUP*F4C ×^68WX7)7),¾ØMoXB)`-BZW+V2435/¾`\*-g:q f&%(')#+*-,.,.7-R ]

! !"$#% &'# ( )'*'*+ ! ! , .-/ !"$ ! ,

ú *UX%(7 UX7)t&BDC(`(F&7 `(%-35`-#+*^q *-7DC 350+*Ep&7)0&F&7

]

×^f&%(,.7)p&7)0&%&Ø C(F&f&%(,1032&o¤6x%-C(%(#&/¾t_%-CEWXF&p+ Ù *-f&F&,.7)# oX#+*-B)B),.%-C(#&F&,¼~$V80&6&a&F&g¸µ4 -¦ 4-

µ4 -¦ 4- + ( íìxì503264- + (

03264- + ( Tf&%(68*^35/¾`\*-7DCMomp4C(%»µ4 -¦ 4- + ( Tf&F BDC(`(F&7-o¾6x%-C(%(#&%(7 `(%-35`(#+*^q *-7DCÿB)F&,.`(%^W¤R Õ #&7D3)VEWX{EC-*^C^*4o F&B)f&%^WX{,.`(%^W«-3)V8g:CnC(F&fD£®%-350+*Ep+*$032-7DCnf4V(BDD£xR kx%F&ts0+* C(F&f87+FXùZRXÙ4¥M n` *2435/¾6x7-f&F&,.7)# oX~$V80&6&a&F42nÓx

]

Óx 8¦ 4- + ( îíìxì-ï:03294- +D£(

Ô0+* f&F&0&F&, *-7DCYB)F&,.`(%^W Fs0&7 `(%-35`(#+*^q *-7DC ÕG7)t&BDC(`(F42sB)`-2435/¾`\*-g:C(Br2nUX#4V8'ÔU&[B:UX#4V8')%(, 0+*-68%®,./iH-VEUX7),¼F&B)f&%^WX{-35%(`\*^C({®CERX0 R<; =^[Ë0 0+*-7DC f&%(B|WX7ZUX%(`\*^C(7ZWX{(0&%(BDC\{ %(f&7)#+*^C(%(#&%(` Ôf&7)#+*^C(%(#1,7DCH(/. C({ WXF&H(% UX7)t&BDC(`(F&7),¾oB WXF&H(% %(

]

#&7D3)VEWX{EC-*^C(%(,¶UX7)t&BDC(`(F42 B f&%(,7Gf+*M[.%-q {(g?>&îxR@

]

`(F8WP*»`(/¾#+*-`(0&F&`\*-0&F42 o p4C(%nF 68WXg p&7)`(/¾7 BZ f&%(')#+*-,., *4o+6x%-C(%(#+*^2TB)p&F4C(/¾`\*-7DC»B)F&,.`(%

+ &¥5¡ôìxìA032 D£+ &¥5¡ ©j & ¢B>&4 -¦ 4- + (

Óx 8¦ 4¢- + (

è$B)f&%^WX{-35%(`\*-0&F&7 F&,.7)0&F + &¥5¡G3DUX7)B){ 0&7DBZW+ 2&`^W+2&7DC(B|2 C(%(p&6x%(t `^k\%5UP*®`Yf&%(')#+*-,., VT0+

¿

+ &¥5¡y`F R Ç.7 C(F&f7)0yH(/UX%^WC({ 032 D£xR¤"$#&7ZUXBDC^*-`^WX7)0&

]

f&%^WX042&7DC UX`\*:UX7)t&BDC(`(F42 f&%(BZWX7ZUX%(`\*^C(7ZWX{( 3)VEWX{EC-*^CYB f&7)#&7),.7)0&0&%(ty¢ Fs3E*^C(7),¨f&7)p+*^C- ú *-61`(7)#&04VxC({_350+*Ep&7)0&F&7 F43 f&%(BZWX7ZUX%(`\*^ 0+*-,¨0&7)%(H5k\%EUXF&,.%®%(f&7ZUX7ZWXF4C({Y~$V80&6&a&F&g FT`(%-35`(#+*^q *-7DC® 8 ( + +o&7)BZWXF %(0s#+*-`(7)06C ê!CD

4 x ( xêíìxì5032¼ + x x4 x ( xê«©j & ¢D>&î1µ4 -¦ 4- + (

¢¶©x©EC ê!C_îxîBF/GIH<J/K L!MIMIM

C(% 0&7 #+*-H(%-C^*-7DCMo8f&%(B)6x%^WX{(64V®`-C(%(#&%(tY%(f B)6&F&,ÿ350+*Ep&7)0&F&7),¾oX*0&%0&7`-3)24C({UX7)t&BDC(`(F&H-VEWX7)`(B)6x%(7),¾RXÙ*-,ÿ3

]

B)%-3DUP*^C({ UX7)t&BDC(`(F&7-o86x%-C(%(#&%(7:0&F&p&7)')%G0&7 350+*Mp&7)0&F&7 ` 68*Mp&7DBDC(`(7G#&7D3)F4CY~$V80&6&a&F42T5WX{MC^*^C-*4R&Õ4 -¦\W+2s4 (

4 -¦\ 4 (¡ôìxì «î-ï:032i ]

öGV80&6&a&F42ÿ 4 -¦\ 4 (¡z3E*-`(7)#4 *-7DC f&%(BZWX7ZUX%(`\* 35%(,¾o+ 4 x ( xên%(f&7ZUX7ZW+2&7DC(B|2TC^*-6 Ð

4 x ( xêíìxì5032¼ + x x4 x ( xê«©j & ¢D>&î1µ4 -¦ 4- + (

4 -¦\ 4 (¡­ Z¢¶©x©EC ê!C

¹ 7)f&7)#&{0&%i%(f&7ZUX7ZWXF4C\{¸H(%^WX7)7¼BZWX%,. 0&/¾7¼~$V80&6&a&F&F`(`(%5UP*M[Ë`(/¾`(%EUP*

] ]

öGV80&6&a&F42 µ4 -¦8 X¥5¡+ +o `(%-35`(#+*^q *-g:q *^2¸BDC(# B)F&,.`(%^WX%(,¨6x%(0&a+* BDC(#&%(6&F ` 68*Mp&7)BDC(`-7 3E*-`

µ4 -¦8 X¥5¡+ ýìxì5032ië-¦8 X¥5¡4µ µ4 -¦8 X¥5¡+ i©ª & ¢B>&4 -¦ 4- + (

¥M ¸¢¶©x©NCPOQC ¦\ + ^¡¸ 4 -¦\ 4 (¡SRIR8 8 ( ª & ª 6>&4 -¦8 X¥5¡+

4 -¦\ 4 (¡­ Z¢ ì 4£

öGV80&6&a&F42s 4 -¦\ 4 (¡s`(`(%5UXF4C %(H(/¾p&0&%(7 350+*M `(/¾`(%EUP*4RXú *-6 0+*-B)p&7DC»%(H(#+*^C(0&%(')%Y0+*0&% WXF `(/¾f&%^WX0&F4C({®-f+*-

Ô ] BDC(`(F&7$`(`(%5UP*M[Ë`(/¾`(%5UP*7)0&F&FXû68*^35/¾`\*` %(H(/¾p&0&%(,}`(/¾#+*-7DC(Br2 o&0&7DC T

]

C-*-68*^2 68*-6 ýìxì507DC5¡8¦´î`(/¾f&%^WX0424C({-ï:05¡8¦ 0&7l,.$%(f&7)#+*-a&F&t

]

f&%(B)68%^WX{(64VA032®0&7 f&%E2&`^W+2&7DC(B|2T` C(F&f&7 7)7

U

WVX5Y Z , ('Y[Z "$#% & # ( )'*'*N ! ! , .-/

] *-B)B),.%-C(#&F&, BZWX7ZU+V8g:q F&7yUX7)t&BDC(`(F42 FªC `(`(%EUX%(, [Ë`(/¾`(%5UX%(,i÷ø%(0&Fs%(f&7ZUX7ZWX7)0&/«` ,.%

¦8ê(Ó+ 6_X¥( \ 3`& îxî-¦\ $HIacb/dcLBecL/fIg<h/i%iDecL/fIg<h/ich©ië-¦8 X¥5¡4µ

MÓ+ ^¡ _X¥( \ ­ìxìp_X¥( \ 3`& -¦\ ¯î-ïq032^ÒX - 4 î-ï:0344 x 8 ( ýìxìpr& ^¡4 & \ î-ïq032 D£4 -¦& s032^ÒX - 4 ª©Dt& x ( (ÒX - 4 í¬®ü4 X¥E¦& ^ÒX - 4 í

w C(%(H(/j%-C(6&/ C({ ~ *-t8W¤o8F&B)f&%^WX{-3)V(7DC\B|2n~$ 7DC(B|2 F&, 2 ~F&,¾oX`®6x%*-t8WP* F -C(%(#&%(,¼7)')%Y0&7)%(HEk\%5UXF&,#&7.

]

B)%-3DUP*-7DC(B|2yUX7)B)6&F&f4C\%(#z~C(F&f+*8r& ^¡4 & \ 4ùZo¤6x%*-t8WP*z÷-C(%(#&/¾t_3E 3E*-6&/ C({YB f&%(,.%-q {(g¸~$V80&6&a&F&Fs 44 x 8 ( +R Õ W+2B)p&F4C(/¾`\*-0&F42bF43ª~BDC(#&%(6&FbBZW+V*^t8WP*¸*^C )F&,BZWX7ZU+V8g:q.`(%^WP*«FF&7

~$V80&6&a&F&F Ð ]

x8 -¦ 4- + ( hìxìvr& ^¡4 & \ î-ï:03264- + (x8 -¦8 X¥5¡+ ­ìxìvr& ^¡4 & \ î-ï:032ië-¦8 X¥5¡4µ

Õ W+2s3E*-f&F&B)FT` ~ *-t8W F&B)f&%^WX{-3)V8g:C(B|2 ~$V80&6

y`\ 8¦ 4- + ( hìxìvrî-&ï:032^¡4 & \ D£ î-ï64- + (y`\ 8¦&ëìxì-¦8vr& ^¡4 & \ î-ïië-¦8 X¥5¡4µ´î-ïq032

Õ W+2nB)p&F4C(/¾`\*-0&F42 B$68WP*-`(F+*^C-V8#&/iFs`(/¾`(% U+V8g:q F&7G~$V80&6&a&F&F Ð

µ4 -¦ 4- + ( íìxì503264- + ( µ4 -¦8 X¥5¡+ ýìxì5032ië-¦8 X¥5¡4µ

4 x ( x (¡ìxì5032:0îxî5¡8¦{zyo b/dIHcbBzIHnkmgcLB|cb/g<h~} hBo HI cL

Óx 8¦ 4- + ( îíìxì-ï:03294- +D£( Óx 8¦&ëìxì-¦8 ë-¦8 X¥5¡4µ´îD£ -ï:032

̶f&F&,.7)# oXf&F&`(7ZUX7)0&0&%(,¼0&F-o+f&7)p+*^C^*-7DC(B|2 BDV8,., * ÈZWX7)

]

+ &¥5¡ôìxìA032 D£+ &¥5¡©j &

Óx 8¦&ë-¦8 R \¡8¦& ( « 4¥\ M¦ - j¡x x xð+ ( + ì$4¥\ M¦&ë-¦8 :>&4 -¦8 X¥5¡+ Ó4 X¥5¡8¦ó Z E x ­ 4 x ( ¸ 4¥\ M¦&ë-¦8 X£x£

] 7D3)VEWX{EC^*^C»`(/¾f&%^WX0&7)0&F42 Ð

Ò+ &¥5¡+ï¶ + &¥5¡\¡8¦& ( ¸ -i¶¡x4¥\ xM¦xð+ ( + 쫱 \³

D£ ìxì5032 D£ ú$#&%(,.7 C(%(')%&oX%(p&7)0&{ f&%^WX7D350+*®BZWX7ZU+V8gºq

x8 -¦ 44 M¡8¦& -¡8¦X óìxìvr& ^¡4 & \ î-ï:032ië-¦8 X¥5¡4µ

Ô0+*»B)p&F4C(/¾`\*^7DCT`(7)B){n~ *-t8Wy68*-6 %EUX04V H(%^WX ÈDC-* ~$V80&6&a&F42T%(p&7)0&{®0&7)È)~ ~ 7)64C(F&`(0+*4oX%5UX0 f&%^WX{-35%(`\*7)0&0&/lkT`(/¾p&F&BZWX7)0&F&t-0&F42s%-CEWX% oXF43 ~ *-t8WP* B

]

`(%^WX%(`&o&B)6x%^WX{(68% 0&7)%(HEk\%5UXF&,.%&o+0&%®0&7 H(%^W

6('* # (

Ê *-f&F4 7),jf&%(')#+*-,.,Ô0+*YB)p&F4C(/¾V6x%(f&F&%(`\*-7DC0&F42B 68WP~* C-V8#&/ªF&,.7)0+* UX`-V\k»~ *-t8WX%(`&o8F&B>k\%5UX0&%(')% Fn UX#4V8')%(t R

îxî y ~dyK |IHI % cb/zcL3o LIb3o I IH }3gcL/Gcb/dyHcb kmz îxî H h/oIK I yi LIb3osb } h i% K LI IL/dId<hja% cb/ IHIa

µ4 -¦yu(¡4 2^Ó+ -¡ _X¥( x ¶Ó4 & M xÓ8¦i X - 4 ª©ª & 1Óx 8¦ ¡+ ^ + %>&4 -¦8 X¥5¡+MÓ+ ^¡ _X¥( \ j¡+ ^ + ¼ X - 4

+ &¥5¡ ©j & ¶ x & M yr& ^¡4 & \ q>&î1µ4 -¦yu(¡4 2^ÓX ^¡ _ ¦+ /r& ^¡4 & \ %>&4 -¦yu(¡4 2^Ó+ ^¡ _X¥( \ lR{44 ¢\ M¡8¦& ^¡8¦X 6>&îÿ x8 -¦ 44 M¡8¦& ^¡4¦X ¶ x & M yry`\ 8¦&ë-¦8 i¦+ /r& ^¡4 & \ ¸¢\ M¡8¦& ^¡8¦X44 x 8 ( j¦+ /r& ^¡4 & \ Óx 8¦&ë-¦8 RDé+ M¡+ R

Ù$7)B),.%-C(#x2 0+*YC(%&omp4C(%s,x.8/¸F&B)f&%^WX{-¦ 44 M¡8¦& ^¡8¦X-3)V(7),i~+oP`(B)$V ]F&,.%(7T~ *-t8WP*y0&7TH-VEUX7DCz0+*Mk\%EUXF4C(Br2¼`_f+*-, p&F4C(/¾`\*^C({(B|2 f&%n,.7)#&7 0&7)%(H5k\%EUXF&,.%(BDC(F F WXF4C 68%(f&F&%(`\*^C({GUP*7 H(%MWX{- F&7$~ *-t8WX/$o4%(H- ¤7),ÿ6x%-C(%(

]

%(f&7)#+*^C(F&`(0&%(t f+*-, 24C(F 6x%(,.f&{(g:C(7)#+*4Rmè$B>k 68%('>UP* F43 0&7)')%®B)p&F4C^*-7DC\Br2 f&%(BZWX7ZUX0&F&t B)F Õ W+2»UX%(BDC-V8f+*®6Tf+*-#+*-,.7DC(#+*-,¼6x%(,0&%F&BZ[*-08UX0&%(

]

f&%^WX{-35%(`\*^C({®BZWX7ZU+V8g:qGV4g,.%EU+V5WX7 ë(ê+ M¦& ^ Ð µ4 -¦yuìxìxxµ+5032ó± ë-¦8 X¥5¡4µx³

C-*z~$V80&6&a&F42¼`(%-35`(#+*^q *-7DC}B)f&F&B)%(6¶BDC(#&%( , *-08UX0&%(tnBDC(#&%(6&F o4f&%5UX%(H(0&%F R&", *$-#&%(')#+*B)B)F&`-Vn-,.,( xµV 68%(f&F&%(`\*-0&F42nC(%('>UP*®,0&%%-f&7ZUX7ZWXF4C\{®C^*.% -6 Ð

]

+ &¥5¡ ©j & ª ( xµ+ D>&4 -¦yux xµ+ ¢\ MÓ4êI_X¥( \ Óx 8¦&ë-¦8 RDé+ M¡+ R

¢\ MÓ4êI_X¥( \ ­±² x & M l T¦+ -³ ©ª & ¶ x & M yr& ^¡4 & \ ¦+ /r& ^¡4 & \ %>&îj MÓ+ ^¡ _X¥( \ j¦+ ¨ ¢\ M¡8¦& ^¡8¦X 6>&îÿ x8 -¦ 44 M¡8¦& ^¡8¦Py`\ 8¦&ë-¦8 i¦+ /r& ^¡4 & \ ¸¢\ M¡8¦& ^¡844 x 8 ( ¶¦+ /r& ^¡4 & \

¢\ MÓ4êI_X¥( \ «ñj© ( x & - lR P ( (µ4 ì ¢\ MÓ4êq>( x &

C^*Gf&%(')#+*-,., *Gf&F&0&F&, *-7DC F&,.7)0+* F&Brk\ , *-08UX0&%(t®BDC(#&%(6&F R4öGV80&6&a&F42T¢\ MÓ4êI_X¥( \ f&7 `®f&%(')#+*-,., Vnf&7)#&7ZUP*-0&%Y0&7)`-7)#&0&%(7 6x%^WXF&p

¸ á ãs!såh!TÞlæsæsàs$ ã£p àTáY墡¡iädç¡

ÕG%ÿB)F8kªf&%(#ª,./ý`(/¾f&%^WX0428WXFªf&%(')#+*-,.,./ 35%(`\*-0&F&7),óF&04C(7)#&f&76x%jBDVxqÔUX0+*- -*^C\%(#+*4R7)BDC\`0&%(BDC({jB)%-V(7)C `(%-3DUP*-35,-.`\*^%

]

%-CEUX7ZWX{(0&/¾7»F&B)f&%^WX042&7),./¾7Yf&%(')#+*[ -,.,./$o

]

0+* B)#&7ZUP* F&04C(7)#&f&7)C-*^C(%(#+*4R Õ;-W+2<>w~=mÈDC(%(')%¥ 9 ;-<>=(?)@A@§¦Q=~¨^© ªA@A?¬«)o4`(/ 35/¾`\*-7),./¾t B f&%(,.%- Õ W+2YC(%(')%&o&p4C(%(H(/ªB)6x%(,.f&F8WXF&%(`\*^C({ 0+*- ')#+*-,.,7)0TH(/V(o+UX%^WC({Y%(f&7ZUX7ZWX7)0 ,.%5U+V5WX{YB F&,.7)0

]

kx%5UXF&,.% %(f&7ZUX7ZWXF4C({ ~$V80&6&a&F&g¶ + &¥5¡ôìxìA0 BDC(F4C({®` ~ *-t8WnÒ+ &¥5¡¾ P &R\Õ W+2n6x%(,.f&F8W+2&a&F& BDC(#&%(687 BZWX7ZU+V8g:qGV8g6x%(, *-08U+VPÐ

µ( P¢ î( ¨Ò+ &¥5¡¾ (°4 ¶Ò+ &¥5¡¾ P

Ì´BZW+V8p+*-7-o.7)BZWXFÿf&%(')#+*F4C - F&H(6&F- .,o*F&0&~B)%5UX7)#%(#&, *-a&F42

]

`(/¾`(7ZUX7)0+*Y0+* È)6+*-0 RPÇ.BZWXF %- F&H(%-6 0&7DCMoP ~ *-t8W¤oº6x%-0&%}3E*C(%(#&/¾t-f4V(B)64*^C({¼0+*1`(/¾f&%^WX0&7D0&F&7,. -

]

f&%(')#+*-,.,./

îxî5Ò+ &¥5¡¾ P+ &¥5¡hìxì5032©j D&£} + &¥5¡

Ó4 X¥5¡8¦ mR \¡8¦& \ X¥M + M¦i¡x x xð+ ( lì R

­

¡x x \ Më-¦8 :>&4 -¦8 X¥5¡+ Ó4 X¥5¡8¦ mR( 4¢\\¡8¦&M¡4 \ª¡x x xð+ ( lì$R-£ ¡x x c >&î¨ 4 x ( x (¡ Ó4 X¥5¡8¦ mREë^ x &© R-£ Ó4 X¥5¡8¦ 4 x ( j¡x x \ Më-¦8 8·-¡x x <

H-VEUX7DC&Ð

4 ì O-µ( P¢ OyO-µ(Mðmm¢8î¥E¡+ï^Ò+ +¥5¡¾ (°4 R \¡8¦& ( X¥M + M¦i¡x x xð+ ( lì R

®

R \¡8¦&( 4¢\ M¡4 ª¡x x xð+ ( lì$R

REë^ x &©@R

¯

° ±yá á ãs!p ÑRºÙ *-f&F4 F4C(7GBZWX7ZU+V8gºq F&7Gf&%(')#+*-,.,./$Ð

Ñùs"$#&%(')#+*-,., *4o\B)p&F4C(/¾`\*-gºq *^2 UX`\* p&F& , V(R

þùs"$#&%(')#+*-,., *4o¾#+*-B)f&7)p+*^C(/¾`\*-g:q *^2«f& 6x%(, *-08UX0&%(tTBDC(#&%(6&F R

ùs"$#&%(')#+*-,., *4o46x%-C(%(#+*^2nf&F&0&F&, *-7DC®` WP* FT#+*-B)f&7)p+*^C(/¾`\*-7DC»7)')%®0+* ÈD6+*-0&7- ¿xùs"$#&%(')#+*-,., *4o&f&F&0&F&, *-g:q *^2 ` 6x%(, ~ *-t8WP*YF `(/¾`(%5U+24q *^2 0+*YÈ)6+*-0 f&7)#&`( 3)V8t4C(7Y~$V80&6&a&F&g 4¥5¡+ 4 4o #+*M35H(F&`\*-g:q `$B)F&,.`(%^WP*Mk 6x%(0&a+*ox0+*- -f&F&,.7)#»$BDC(#&%(6&F4¥5¡+ 4 cRM 4¥5¡ `(7)#&0&7DCy± RM 4¥5¡+ <7 yRf&%^WX7D350+*m RM 4¥5¡+ ~I $nRV80&6&a&F42)³XR-¹ *-

]

%(BDVxq 7)BDC\`MW+2+gºq *^2 %(H(#+*^C(04V8g

þR ] 7)*MWXF43)V8t4C\7:f&%-')#+*-,.,./$o\`(/ f&%^WX042&g: f&7)#&`(%(t WP*-H(%(#+*^C(%(#&0&%(t #+*0&/1B)p&F4C(/l[-H(%-C(/$R\" *-#+*- `\*^C({(Br2TB 68WP*-`(F+*^C-V8#&/$R ]

²

Соседние файлы в папке Haskell