michael rice wrote:
> Here's a function from Data.Tree:
>
> unfoldTree :: (b -> (a, [b])) -> b -> Tree a
> Build a tree from a seed value
>
> Could someone please give me a brief example of usage.
Data.Tree> let t = unfoldTree (\i -> (show i, [i`div`2..i-1]))
Data.Tree> putStr . drawTree $ t 8
--
Live well,
~wren