Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/MoneyBagAdd.hs

Last active August 14, 2017 12:26
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 deque-blog/7de4e9e9b60960c49172b0be4ecc20b5 to your computer and use it in GitHub Desktop.
Save deque-blog/7de4e9e9b60960c49172b0be4ecc20b5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
MoneyBagAdd.hs
add :: MoneyBag -> MoneyBag -> MoneyBag
add (MoneyBag m1) (MoneyBag m2) = MoneyBag (unionWith (+) m1 m2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment