Skip to content

Instantly share code, notes, and snippets.

@deciduously

deciduously/stdFolds.hs

Created November 29, 2018 13:29
Show Gist options
  • Save deciduously/8b2babeb07782c046aa0dab9f1392634 to your computer and use it in GitHub Desktop.
Save deciduously/8b2babeb07782c046aa0dab9f1392634 to your computer and use it in GitHub Desktop.
Download ZIP
Some library functions implemented in terms of foldr
Raw
stdFolds.hs
module StdFolds where
myOr :: [Bool] -> Bool
myOr = foldr (||) False
myAny :: (a -> Bool) -> [a] -> Bool
myAny = flip foldr False . ((||) .)
myElem :: Eq a => a -> [a] -> Bool
myElem = myAny.(==)
myMap :: (a -> b) -> [a] -> [b]
myMap = flip foldr [] . ((:) .)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment