Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data Tree a = Leaf a | Branch (Tree a) (Tree a)
- unit :: a -> Tree a
- unit = Leaf
- join :: Tree (Tree a) -> Tree a
- join (Leaf a) = a
- join (Branch r s) = Branch (join r) (join s)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement