Entries from 2013-12-31 to 1 day
import Data.Char type Bit = Int -- リスト内包表現(list comprehension)[f x | x <- xs, p x]を高階関数で書きなおす lcomp :: (a -> b) -> (a -> Bool) -> [a] -> [b] lcomp f p xs = map f (filter p xs) all' :: (a -> Bool) -> [a] -> Bool all' p = a…