{-
     Opgaver på ugeseddel 4 til kapitel 10
-}
module Uge4_10 where

-- Opgave 10.3

composeList :: [a -> a] -> a -> a  
composeList = foldr (.) id


-- Opgave 10.6

swapArgs :: (a -> b -> c) -> b -> a -> c
swapArgs f = \b a -> f a b


-- Opgave 10.8

isBlackspace :: Char -> Bool
isBlackspace = \ c -> not (elem c " \t\n")


-- Opgave 10.13 (næsten det samme som 9.3)

sec1 = (+1)
sec2 = (>=0)