Revision as of 12:09, 20 July 2019 (view source) Hout (talk \| contribs) (→‎{{header\|Haskell}}: (replaced foldTree with a simpler foldNest)) ← Older edit		Revision as of 12:12, 20 July 2019 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}) Newer edit →
Line 394: bagPatterns n = nub $ (~~commasFromTree~~bracketsFromTree . depthSortedTree . treeFromParentIndices) <$> parentIndexPermutations n Line 430: (sortBy (flip (comparing rootLabel)) xs) ~~commasFromTree~~bracketsFromTree :: Tree a -> String ~~commasFromTree~~bracketsFromTree = foldNest (\xs -> '(' : (concat xs ++ ")")) foldNest :: ([b] -> b) -> Tree a -> b

List rooted trees: Difference between revisions

List rooted trees (view source)