[haskell:19] =?iso-2022-jp?B?GyRCJCokUiQ1JDckViRqJEckORsoQg==?=

[ai suzuki]

$B!!(B
$B!!!!NkLZ!wF|K\EE;R$G$9!#(B

$B!!!!$*$R$5$7$V$j$K$J$C$F$7$^$$$^$7$?!#(B
$B!!!!="?&3hF0$,2M66$K:9$73]$+$C$F$$$?$?$a(B
$B!!!!K\3JE*$K@d$C$F$7$^$C$F$$$^$7$?!#(B
$B!!!!$7$+$7!"$*$+$2$5$^$GBh0l;VK>$+$iFbDj$rD:$-$^$7$?!#(B

$B!!!!MhG/$+$i$O!"(J FXIS $B$NNkLZ$H$J$j$^$9!#(B
$B!!!!$I$&$>!"59$7$/$*4j$$CW$7$^$9!#!J(J........$B$d$C$?$d$C$?!*!K(B

$B!!!!$5$F!":G6aM'?M$+$i!"(B
$B!!!!!V(JHaskell $B$G%^%/%m$O$J$$$N$+!)!W(B
$B!!!!l9g$O%Q%?!<%s8@8l$rMQ$$$F!"=q$-49$($r9T$$$^$9!#!W(B

$B!!!!$H$$$&JV;v$rJV$7$F$-$^$7$?!#(B

$B!!!!$3$l$O!"E|0a9=J8$H$$$o$l$k$b$N$G$O$J$$$G$7$g$&$+!)(B

$B!!!!(JLisp/scheme $B$N(J cond $B$O(J Haskell $B$NI=5-K!$G$O(B

$B!!!!(Jpower         ::  x -> y -> z(B
(J  $B!!(Jpower x 1    =  x(B
(J  $B!!(Jpower x  y   =  x * power x  (y -1)(B

(J  $B!!$H$$$&4X?t$b!"(Jcase $B$d(J if $B$r;H$C$F=q$-49$($k$3$H$b=PMh$^$9!#(B

$B!!!!(Jpower         :: x -> y -> z(B
(J  $B!!(Jpower x y    =(B
(J                     case  y of(B
(J                     1  ->  x(B
(J                     _  ->  x * power x (y - 1)(B

$B!!!!(B
$B!!!!$b$7!";d$N2rhttp://QuickML.com/