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/