Skip to content

Instantly share code, notes, and snippets.

@5outh

5outh/TreeFunctions.hs

Created December 27, 2012 21:01
Show Gist options
  • Save 5outh/4391933 to your computer and use it in GitHub Desktop.
Save 5outh/4391933 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
TreeFunctions.hs
reduce f (Leaf x) = x
reduce f (Node x xs) = f x . foldr1 f $ map (reduce f) xs
addTree = reduce (+)
multTree = reduce (*)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment