Revision as of 17:21, 23 January 2020 (view source) rosettacode>Gerard Schildberger m (→‎{{header\|REXX}}: changed whitespace and some comments.) ← Older edit		Revision as of 04:32, 13 March 2020 (view source) Hout (talk \| contribs) m (→‎{{header\|Haskell}}: Tidying) Newer edit →
Line 394: bagPatterns n = nub $ (bracketsFromTree . depthSortedTree . treeFromParentIndices) <$> parentIndexPermutations n parentIndexPermutations :: Int -> [[Int]] parentIndexPermutations = traverse (enumFromTo 0) . enumFromTo 0 . subtract 2 ~~sequenceA . fmap (enumFromTo 0) . enumFromTo 0 . subtract 2~~ treeFromParentIndices :: [Int] -> Tree Int

List rooted trees: Difference between revisions

List rooted trees (view source)