Skip to content

Instantly share code, notes, and snippets.

@bitwombat

bitwombat/Page475.hs

Created July 19, 2019 09:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bitwombat/1ee476de55b3a45bed07302c1b821ca0 to your computer and use it in GitHub Desktop.
Save bitwombat/1ee476de55b3a45bed07302c1b821ca0 to your computer and use it in GitHub Desktop.
Download ZIP
HPFFP Exercise page 475
Raw
Page475.hs
module Page475 where
f :: Either a b -> [a] -> [a]
f c d = case c of
Left x -> d ++ [x]
_ -> d
lefts' :: [Either a b] -> [a]
lefts' e = foldr (f) [] e
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment