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
- collectLeafs :: X a b -> [a]
- collectLeafs = cataL2D( either singl f)
- where f(Comp b c d) = conc(f c, f d)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement