Skip to content

Instantly share code, notes, and snippets.

@dmwit
Created November 6, 2018 19:48
Show Gist options
  • Save dmwit/a3863704908d470fde232b5044131e93 to your computer and use it in GitHub Desktop.
Save dmwit/a3863704908d470fde232b5044131e93 to your computer and use it in GitHub Desktop.
fs :: Bool -> Int -> Int
fs False = (+1)
fs True = (*3)
vals :: Bool -> Int
vals False = 10
vals True = 20
fOfVals :: Bool -> Int
fOfVals = fs <*> vals
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment