Some freaky point free stuff of chapter 10 of the haskell book

Chapter10.hs

module Chapter10 where

-- from Mark & Amr

myOr :: [Bool] -> Bool
myOr = foldr (||) False


myAny :: (a -> Bool) -> [a] -> Bool
myAny = (myOr .) . map

myReverse :: [a] -> [a]
myReverse = foldl (flip (:)) []

myMap :: (a -> b) -> [a] -> [b]
myMap f = foldr ((:) . f) []
myMap' :: (a -> b) -> [a] -> [b]
myMap' = flip foldr [] . ((:) .)

Btw, I have found a point-free version for myAny that uses foldr.