Shiro$B$G$9!#$=$&$+!D(B $BF|K\$O%4!<%k%G%s%&%#!<%/$J$s$G$9$M!#(B
$B$H$3$m$G!"!V=R8l$N%;%C%H$,M?$($i$l$?;~!"0z?t$KBP$7A4$F$N=R8l$,(B
$B??$rJV$9$+$I$&$+$rH=Dj$9$k=R8l$r:n$k!W$H$$$&$N$O$+$J$jIQHK$K(B
$B=P$FMh$k%Q%?!<%s$@$H;W$$$^$9!#(BScheme$B$J$i(B
(define (foo list-of-pred)
(lambda (x)
(every (lambda (p) (p x)) list-of-pred)))
Haskell$B$J$i(B
foo :: [a -> Bool] -> a -> Bool
foo l x = all (\y -> y x) l
$B$_$?$$$J$b$N$G$9!#(B
$B$=$l$J$j$KJXMx$=$&$JA`:n$J$N$G<+:n$N(BScheme$B$N%i%$%V%i%j$K(B
$BF~$l$h$&$H;W$C$F$$$k$N$G$9$,!"L>A0IU$1$KLB$C$F$$$^$9!#(B
Haskell$B3&$G$O$3$s$J4X?t$N!VDL>N!W$_$?$$$J$b$N$O$"$k$G$7$g$&$+!#(B
$B$?$H$($P9-$/;H$o$l$F$$$k%i%$%V%i%j$G$NL>A0$H$+!"%F%-%9%H$K(B
$BNc$H$7$F=P$FMh$?L>A0$H$+!#(B
--Shiro
--
ML: [EMAIL PROTECTED]
$B;H$$J}(B: http://QuickML.com/
