Skip to content

Instantly share code, notes, and snippets.

@laser

laser/lambdacase.hs

Last active August 29, 2015 13:58
Show Gist options
  • Save laser/9962768 to your computer and use it in GitHub Desktop.
Save laser/9962768 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
lambdacase.hs
addSomethingToEach :: [Integer] -> [Integer]
addSomethingToEach list = map something list
where something n = case (n > 0) of
True -> 2
False -> 9
Raw
where clause.hs
addSomethingToEach :: [Integer] -> [Integer]
addSomethingToEach list = map (+something) $ map (+something) list
where something = 4
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment