Skip to main content
Mathematica

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

4
  • 2
    $\begingroup$ As a way of checking the output of SetPartitions[], the following should be True: Length[SetPartitions[myList]] == BellB[Length[myList]]. $\endgroup$ Commented Jul 20, 2012 at 10:49
  • $\begingroup$ Very nice. Your second solution highlights some additional permutations that I had overlooked. And of course, the third solution is, as you note, the most general. $\endgroup$ Commented Jul 20, 2012 at 10:54
  • $\begingroup$ @J.M. +1 thanks for showing the multiple cases $\endgroup$ Commented Apr 22, 2017 at 20:40
  • 1
    $\begingroup$ #2 can now be done quite conveniently without any Internal functions, by using IntegerPartitions and TakeList: tio.run/##LY2xCsJAEER7v2JAsFq4LxCuVVJcYScWa7Imi9wGLptCxG@/… $\endgroup$ Commented Dec 7, 2017 at 15:51