Skip to content

Instantly share code, notes, and snippets.



Last active Aug 14, 2017
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