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

[nobsun]

$B$d$^$7$?(B $B$G$9!#(B

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

$B$*$a$G$H$&$4$6$$$^$9!#(B\(^o^)/

> $B!!!!$5$F!":G6aM'?M$+$i!"(B
> $B!!!!!V(BHaskell $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$O$$!"$3$l$OE|0a9=J8$G$9!#E|0a9=J8$OAH9~$_:Q$_$N$b$N$G$9!#(B
Scheme $B$G$O%f!<%6$,<+M3$K$3$N%7%s%?%/%9%7%e%,!<$rDj5A$G$-$k$N$,(B 
macro $B$H$$$&$3$H$G$9$h$M!#(B

> $B!!!!(BLisp/scheme $B$N(B cond $B$O(B Haskell $B$NI=5-K!$G$O(B
> 
> $B!!!!(Bpower         ::  x -> y -> z
>   $B!!(Bpower x 1    =  x
>   $B!!(Bpower x  y   =  x * power x  (y -1)
> 
>   $B!!$H$$$&4X?t$b!"(Bcase $B$d(B if $B$r;H$C$F=q$-49$($k$3$H$b=PMh$^$9!#(B
> 
> $B!!!!(Bpower         :: x -> y -> z
>   $B!!(Bpower x y    =
>                      case  y of
>                      1  ->  x
>                      _  ->  x * power x (y - 1)

Haskell $B$G$O9=J8E|0a$O$$$/$D$b$"$j$^$9(B
$B%j%9%HFbJqI=5-!"(Bdo $B9=J8(B $B$J$I$O$=$NE57?E*$JNc$G$9$M(B

Haskell $B$G$O!"(Bif $B$b%7%s%?%/%9%7%e%,!<$H4GJo$;$^$9!#(B

     if p then c else a 
$B$O!"(B

     case p of 
       True  -> c
       False -> a

$B$NE|0a9=J8$G$9$M!#(B
$B$^$?!"(B

     foo x y = ...

$B$H$$$&I=5-$b(B

     foo = \ x -> (\ y -> ...)

$B$NE|0a9=J8$G$9$M!#(B

Haskell $B$K$O9=J8$r%f!<%6$,Dj5A$G$-$k(B macro $B$H$$$&5!9=$O$"$j$^$;$s!#(B
Haskell $B$K$O4{$K$$$/$D$b$NE|0a9=J8$,MQ0U$5$l$F$$$k$N$G!"(B
$B8D?ME*$K$O!"(BHaskell $B$K$O(B macro $B$,I,MW$@$H;W$&$3$H$O$"$j$^$;$s!#(B

-- Scheme $B$J$I$G!"%^%/%m$r;H$$$?$$;~$OBgDq!"CM$rI>2A$9$k$^$($K(B
-- $BE83+$7$?$$$H$$$&$h$&>l9g$@$H$*$b$$$^$9!#$D$^$j!"ItJ,E*$K@55,=gI>2A(B
-- $B$"$k$$$O(B call-by-need $B$r;H$$$?$$$H$$$&$H$-$G$7$g$&!)(B
-- Haskell $B$N$h$&$J%Q%?!<%s%^%C%A%s%0$HCY1dI>2A$,$"$l$P!"(Bmacro $B$O$$$i$J$$(B
-- $B5$$,$7$^$;$s$+!)(B

--nobsun






--
ML: [EMAIL PROTECTED]
$B;H$$J}(B: http://QuickML.com/