1 id const 2 id :: a -> a id x = x const :: a -> b -> a const x _ = x 3 4 id (1) f = map (+1) . filter odd . take 10 f [1..] [2,4,6,8,10] g = foldr (.) id [map (+1), filter odd, take 10] g [1..] [2,4,6,8,10] 5 id (2) Bool takeWhile (==True) [True,True,True,False,True] [True,True,True] takeWhile id [True,True,True,False,True] [True,True,True] 6 const import Control.Exception as E import System.Dire