
11 Jun
2009
11 Jun
'09
12:13 a.m.
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