Shiro$B$G$9!#(B From: Atsushi Kanaya <[EMAIL PROTECTED]> Subject: [haskell:41] Haskell$B$NKvHx:F5"(B Date: Fri, 24 May 2002 17:45:57 +0900 > >Haskell$B$K$OKvHx:F5"(B($B$H!$$=$N:GE,2=(B)$B$O%5%]!<%H$5$l$F$$$k$N$G$7$g$&$+(B? > $B$I$&$bCY1dI>2A$HAj@-$,0-$=$&$JJ70O5$$,;G$($k$N$G$9$,!$(B > $B>\$7$$$3$H$O$^$@D4$Y$F$$$J$+$C$?$j$7$^$9(B($B$9$_$^$;$s(B)$B!%(B
$B$&!<$s!"(Bloop$B$r:F5"$GI=8=$9$k0J>e!"KvHx:F5"$N:GE,2=$O$7$F(B $B$b$i$o$J$$$H!V:$$k!W$H;W$&$N$G$9$,!"8@8l;EMM$NCf$K=q$$$F(B $B$"$k$+$I$&$+$O(Bnobsun$B$K$*4j$$$9$k$H$7$F!D(B ($BB>NOK\4j(B) $B$H$j$"$($:$3$s$J%J%$!<%V$J%k!<%W$r2s$7$F$_$F$b(B $B%9%?%C%/$,0n$l$k5$G[$O$"$j$^$;$s$M!#(B f :: Int -> Int f 0 = 0 f x = f (x-1) f 10000000 $BCY1dI>2A$HAj@-$,0-$$!"$H$$$&$N$O$3$&$$$&$3$H$G$7$g$&$+!#(B $BNc$($P$3$s$J%3!<%I$G!"(B f x = g (\y -> x y) (define (f x) (g (lambda (y) (x y)))) Scheme$B$J$i(Bg$B$r8F$VA0$K(Blambda$B$rI>2A$7$F(Bx$B$r4^$`4D6-$r(B $B%/%m!<%:$7$?%/%m!<%8%c$r:n$C$F$7$^$&$?$a!"(Bf$B$N(B $B%m!<%+%k%U%l!<%`$O(Bg$B$r8F$VD>A0$KGK4~$G$-$^$9!#(B $B$7$+$7(BHaskell$B$G%/%m!<%8%c$N:n@.$,(Bdelay$B$5$l$?>l9g!"(B f$B$N%m!<%+%k%U%l!<%`$rGK4~$7$F$h$$$+$I$&$+$O(B \y -> x y $B$,E,MQ$5$l$k;~$^$G$o$+$i$J$$!"$H!#(B $B$3$N$X$s$K4X$7$F$O!"4X?t7?8@8l$N%3%s%Q%$%k$r$b$A$C$H(B $BJY6/$7$J$$$H;d$K$O$o$+$i$J$$$G$9!#(B --shiro -- ML: [EMAIL PROTECTED] $B;H$$J}(B: http://QuickML.com/