RosettaCodeData/Task/List-rooted-trees/Mathematica/list-rooted-trees-2.math
2023-07-01 13:44:08 -04:00

1 line
66 B
Text

With[{n = 5}, TreeForm /@ Nest[Addbags, {cabinet[bag[]]}, n - 1]]