Is there a function to partition an integer set? Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern) Announcing the arrival of Valued Associate #679: Cesar Manara Unicorn Meta Zoo #1: Why another podcast?Partition a set into subsets of size $k$Partition a set into $k$ non-empty subsetsHow to delete mirror symmetric point pair efficientlyPartition a range of integers into triplesSelecting last partition in integer partitionHow to partition a 2-D array properly?generating integer partitionsImproved a code to work once (no need to repeat)Partition a set of n objects into k subsets?Groupings of the Elements of a List with at Most $k$ Elements

What to do with chalk when deepwater soloing?

How do pianists reach extremely loud dynamics?

Output the ŋarâþ crîþ alphabet song without using (m)any letters

Can an alien society believe that their star system is the universe?

What exactly is a "Meth" in Altered Carbon?

Should I discuss the type of campaign with my players?

Extract all GPU name, model and GPU ram

When do you get frequent flier miles - when you buy, or when you fly?

How to call a function with default parameter through a pointer to function that is the return of another function?

Fundamental Solution of the Pell Equation

Book where humans were engineered with genes from animal species to survive hostile planets

What does an IRS interview request entail when called in to verify expenses for a sole proprietor small business?

Check which numbers satisfy the condition [A*B*C = A! + B! + C!]

What is Arya's weapon design?

Storing hydrofluoric acid before the invention of plastics

Should I use a zero-interest credit card for a large one-time purchase?

Echoing a tail command produces unexpected output?

Error "illegal generic type for instanceof" when using local classes

List of Python versions

What LEGO pieces have "real-world" functionality?

Identify plant with long narrow paired leaves and reddish stems

How to bypass password on Windows XP account?

At the end of Thor: Ragnarok why don't the Asgardians turn and head for the Bifrost as per their original plan?

Single word antonym of "flightless"



Is there a function to partition an integer set?



Planned maintenance scheduled April 17/18, 2019 at 00:00UTC (8:00pm US/Eastern)
Announcing the arrival of Valued Associate #679: Cesar Manara
Unicorn Meta Zoo #1: Why another podcast?Partition a set into subsets of size $k$Partition a set into $k$ non-empty subsetsHow to delete mirror symmetric point pair efficientlyPartition a range of integers into triplesSelecting last partition in integer partitionHow to partition a 2-D array properly?generating integer partitionsImproved a code to work once (no need to repeat)Partition a set of n objects into k subsets?Groupings of the Elements of a List with at Most $k$ Elements










5












$begingroup$


First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
$$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
(0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










share|improve this question









$endgroup$
















    5












    $begingroup$


    First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
    $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
    (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



    For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










    share|improve this question









    $endgroup$














      5












      5








      5





      $begingroup$


      First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
      $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
      (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



      For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?










      share|improve this question









      $endgroup$




      First I give an example. For an integer set $(0,1,2,3,4)$, there are eight kinds of subdivision or partition like this
      $$(0,4);\~~(0,1)(1,4);~~(0,2)(2,4);~~(0,3)(3,4);\
      (0,1)(1,2)(2,4);~~(0,1)(1,3)(3,4);~~(0,2)(2,3)(3,4);~~\(0,1)(1,2)(2,3)(3,4); $$



      For a more general set $(0,1,2,...,n)$, there are $2^n-1$ kinds of partition.I believe that there must be a special name for this kind of partition mathematically. How can I realize it in MMA?







      list-manipulation combinatorics partitions






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked Apr 1 at 7:26









      Mark_PhysMark_Phys

      1357




      1357




















          1 Answer
          1






          active

          oldest

          votes


















          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – Mark_Phys
            Apr 1 at 9:08










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            Apr 1 at 9:10










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is away
            Apr 1 at 14:35










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            Apr 1 at 14:52











          Your Answer








          StackExchange.ready(function()
          var channelOptions =
          tags: "".split(" "),
          id: "387"
          ;
          initTagRenderer("".split(" "), "".split(" "), channelOptions);

          StackExchange.using("externalEditor", function()
          // Have to fire editor after snippets, if snippets enabled
          if (StackExchange.settings.snippets.snippetsEnabled)
          StackExchange.using("snippets", function()
          createEditor();
          );

          else
          createEditor();

          );

          function createEditor()
          StackExchange.prepareEditor(
          heartbeatType: 'answer',
          autoActivateHeartbeat: false,
          convertImagesToLinks: false,
          noModals: true,
          showLowRepImageUploadWarning: true,
          reputationToPostImages: null,
          bindNavPrevention: true,
          postfix: "",
          imageUploader:
          brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
          contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
          allowUrls: true
          ,
          onDemand: true,
          discardSelector: ".discard-answer"
          ,immediatelyShowMarkdownHelp:true
          );



          );













          draft saved

          draft discarded


















          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194351%2fis-there-a-function-to-partition-an-integer-set%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown

























          1 Answer
          1






          active

          oldest

          votes








          1 Answer
          1






          active

          oldest

          votes









          active

          oldest

          votes






          active

          oldest

          votes









          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – Mark_Phys
            Apr 1 at 9:08










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            Apr 1 at 9:10










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is away
            Apr 1 at 14:35










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            Apr 1 at 14:52















          8












          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$












          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – Mark_Phys
            Apr 1 at 9:08










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            Apr 1 at 9:10










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is away
            Apr 1 at 14:35










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            Apr 1 at 14:52













          8












          8








          8





          $begingroup$

          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4







          share|improve this answer











          $endgroup$



          P[n] will return the set you are asking



          P[n_] := Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]]

          P[4]



          0, 4, 0, 1, 1, 4, 0, 2, 2, 4, 0, 3, 3, 4, 0,
          1, 1, 2, 2, 4, 0, 1, 1, 3, 3, 4, 0, 2, 2, 3, 3,
          4, 0, 1, 1, 2, 2, 3, 3, 4








          share|improve this answer














          share|improve this answer



          share|improve this answer








          edited Apr 1 at 14:52

























          answered Apr 1 at 7:47









          J42161217J42161217

          4,513324




          4,513324











          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – Mark_Phys
            Apr 1 at 9:08










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            Apr 1 at 9:10










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is away
            Apr 1 at 14:35










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            Apr 1 at 14:52
















          • $begingroup$
            Thanks, it works well!!!
            $endgroup$
            – Mark_Phys
            Apr 1 at 9:08










          • $begingroup$
            @user10709 I'm glad I helped!
            $endgroup$
            – J42161217
            Apr 1 at 9:10










          • $begingroup$
            Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
            $endgroup$
            – J. M. is away
            Apr 1 at 14:35










          • $begingroup$
            @J.M.isslightlypensive yes, you are right
            $endgroup$
            – J42161217
            Apr 1 at 14:52















          $begingroup$
          Thanks, it works well!!!
          $endgroup$
          – Mark_Phys
          Apr 1 at 9:08




          $begingroup$
          Thanks, it works well!!!
          $endgroup$
          – Mark_Phys
          Apr 1 at 9:08












          $begingroup$
          @user10709 I'm glad I helped!
          $endgroup$
          – J42161217
          Apr 1 at 9:10




          $begingroup$
          @user10709 I'm glad I helped!
          $endgroup$
          – J42161217
          Apr 1 at 9:10












          $begingroup$
          Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
          $endgroup$
          – J. M. is away
          Apr 1 at 14:35




          $begingroup$
          Of course, you can combine the functions so that only one application of Map[] is needed: Partition[Join[0, #, n], 2, 1] & /@ Subsets[Range[n - 1]].
          $endgroup$
          – J. M. is away
          Apr 1 at 14:35












          $begingroup$
          @J.M.isslightlypensive yes, you are right
          $endgroup$
          – J42161217
          Apr 1 at 14:52




          $begingroup$
          @J.M.isslightlypensive yes, you are right
          $endgroup$
          – J42161217
          Apr 1 at 14:52

















          draft saved

          draft discarded
















































          Thanks for contributing an answer to Mathematica Stack Exchange!


          • Please be sure to answer the question. Provide details and share your research!

          But avoid


          • Asking for help, clarification, or responding to other answers.

          • Making statements based on opinion; back them up with references or personal experience.

          Use MathJax to format equations. MathJax reference.


          To learn more, see our tips on writing great answers.




          draft saved


          draft discarded














          StackExchange.ready(
          function ()
          StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fmathematica.stackexchange.com%2fquestions%2f194351%2fis-there-a-function-to-partition-an-integer-set%23new-answer', 'question_page');

          );

          Post as a guest















          Required, but never shown





















































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown

































          Required, but never shown














          Required, but never shown












          Required, but never shown







          Required, but never shown







          Popular posts from this blog

          Triangular numbers and gcdProving sum of a set is $0 pmod n$ if $n$ is odd, or $fracn2 pmod n$ if $n$ is even?Is greatest common divisor of two numbers really their smallest linear combination?GCD, LCM RelationshipProve a set of nonnegative integers with greatest common divisor 1 and closed under addition has all but finite many nonnegative integers.all pairs of a and b in an equation containing gcdTriangular Numbers Modulo $k$ - Hit All Values?Understanding the Existence and Uniqueness of the GCDGCD and LCM with logical symbolsThe greatest common divisor of two positive integers less than 100 is equal to 3. Their least common multiple is twelve times one of the integers.Suppose that for all integers $x$, $x|a$ and $x|b$ if and only if $x|c$. Then $c = gcd(a,b)$Which is the gcd of 2 numbers which are multiplied and the result is 600000?

          Ingelân Ynhâld Etymology | Geografy | Skiednis | Polityk en bestjoer | Ekonomy | Demografy | Kultuer | Klimaat | Sjoch ek | Keppelings om utens | Boarnen, noaten en referinsjes Navigaasjemenuwww.gov.ukOffisjele webside fan it regear fan it Feriene KeninkrykOffisjele webside fan it Britske FerkearsburoNederlânsktalige ynformaasje fan it Britske FerkearsburoOffisjele webside fan English Heritage, de organisaasje dy't him ynset foar it behâld fan it Ingelske kultuergoedYnwennertallen fan alle Britske stêden út 'e folkstelling fan 2011Notes en References, op dizze sideEngland

          Հադիս Բովանդակություն Անվանում և նշանակություն | Դասակարգում | Աղբյուրներ | Նավարկման ցանկ