Skip to content

Instantly share code, notes, and snippets.

@deque-blog

deque-blog/MoneyBagAdd.hs

Last active Aug 14, 2017
Embed
What would you like to do?
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