Jump to content

List rooted trees: Difference between revisions

m
→‎{{header|Haskell}}: (used foldTree)
m (→‎{{header|Haskell}}: (used foldTree))
Line 429:
 
bracketsFromTree :: Tree a -> String
bracketsFromTree = foldNestfoldTree (\_ xs -> '(' : (concat xs ++ ")"))
 
foldNest :: ([b] -> b) -> Tree a -> b
foldNest f =
let go (Node _ ts) = f (map go ts)
in go
 
main :: IO ()
9,659

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.