Tree traversal: Difference between revisions
m
→Haskell: Reduced `treeLeaves` to a foldTree expression
m (→Data.Tree nodes: Replacing <lang> with <syntaxhighlight> manually ... (does automation look feasible ?)) |
m (→Haskell: Reduced `treeLeaves` to a foldTree expression) |
||
Line 5,332:
{{Trans|Python}}
<syntaxhighlight lang=haskell>import Data.
import Data.Tree (Tree (..), drawForest, drawTree, foldTree)
---------------------- TREE TRAVERSAL --------------------
Line 5,374 ⟶ 5,375:
treeLeaves :: Tree a -> [a]
treeLeaves = foldTree go
where
go
go
--------------------------- TEST -------------------------
tree :: Tree Int
| |||