Skip to content

Instantly share code, notes, and snippets.

@laser
Last active August 29, 2015 13:58
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save laser/9962768 to your computer and use it in GitHub Desktop.
addSomethingToEach :: [Integer] -> [Integer]
addSomethingToEach list = map something list
where something n = case (n > 0) of
True -> 2
False -> 9
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