tfold f z Leaf = z tfold f z t = f(tfold f z (left t))(key t)(tfold f z (right t))Beispiele für Benutzung:
leaves = tfold (\ l k r -> l + r) 1 inorder = tfold (\ l k r -> l ++ [k] ++ r) []
Aufgabe: programmieren Sie mit Hilfe von tfold
:
nodes :: Tree a -> Int
depth :: Tree a -> Int
mirror :: Tree a -> Tree a