Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- collectLeafs :: X a b -> [a]
- collectLeafs (Unit a) = [a]
- collectLeafs (Comp b c d) = collect c ++ collect d
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement