Skip to content

Instantly share code, notes, and snippets.

@5outh

5outh/Tree.hs

Created December 27, 2012 20:59
Show Gist options
  • Save 5outh/4391901 to your computer and use it in GitHub Desktop.
Save 5outh/4391901 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Tree.hs
data Tree a = Node a [Tree a] | Leaf a deriving (Show, Eq)
sample = Node 1 [Node 2 [Leaf 5, Leaf 6], Node 3 [Leaf 7], Node 4 [Leaf 8]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment