Implement `fold` on a "Rose Tree"
The implementation isn't correct, because it doesn't traverse sub-trees. Consider

Node 1 [Node 2 [Node 3 []]]


Then your folding function will only fold over 1 and 2, but not over 3.

If you have a recursive structure like this, a folding function over it must also be recursive. Otherwise it won't be able to traverse arbitrarily large recursive structure.

For the other question: If you specialize the folding function as

treeFold :: ([Char] -&gt; [[Char]] -&gt; [Char]) -&gt; (Char -&gt; [Char])
         -&gt; Tree Char -&gt; [Char]


by setting b = [Char], you get what you're looking for - converting a Tree Char to String. You just need to supply the two function for folding, for example

treeFold (\x ys -&gt; x ++ concat ys) (: [])




Update: The signature also isn't correct. The general rule is that the folding function should have one additional argument for each constructor of the data type where recursive types (here Tree a) are replaced by the result of the fold:

treeFold :: (a -&gt; [b] -&gt; b) -&gt; Tree a -&gt; b


For example for a list you have 2 constructors: (:) :: a -&gt; [a] -&gt; [a] and [] :: [a], so its folding function is

foldr :: (a -&gt; b -&gt; b) -&gt; b -&gt; [a] -&gt; b