Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- build :: [LogMessage] -> MessageTree
- build [x] = Node Leaf x Leaf
- build [x,y] = Node (build [x]) y Leaf
- build [x,y,z] = Node (Node (build [x]) y Leaf) z Leaf
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement