How to Partition rest rows by the first row?












4












$begingroup$


Given a list



lst = {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},

        { "A","B","C","D","E","F","G","H","I"},

        { "9","8","7","6","5","4","3","2","1"}};


How to get this by Partition.



res =  {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},

        {{"A","B","C"},{"D","E"},{"F","G","H","I"}},

        {{"9","8","7"},{"6","5"},{"4","3","2","1"}}};


Thanks!






list-manipulation partitions







share|improve this question









$endgroup$

















    4












    $begingroup$


    Given a list



    lst = {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
    
        { "A","B","C","D","E","F","G","H","I"},
    
        { "9","8","7","6","5","4","3","2","1"}};


    How to get this by Partition.



    res =  {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
    
        {{"A","B","C"},{"D","E"},{"F","G","H","I"}},
    
        {{"9","8","7"},{"6","5"},{"4","3","2","1"}}};


    Thanks!






    list-manipulation partitions







    share|improve this question









    $endgroup$















      4












      4








      4





      $begingroup$


      Given a list



      lst = {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
      
        { "A","B","C","D","E","F","G","H","I"},
      
        { "9","8","7","6","5","4","3","2","1"}};


      How to get this by Partition.



      res =  {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
      
        {{"A","B","C"},{"D","E"},{"F","G","H","I"}},
      
        {{"9","8","7"},{"6","5"},{"4","3","2","1"}}};


      Thanks!






      list-manipulation partitions







      share|improve this question









      $endgroup$




      Given a list



      lst = {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
      
        { "A","B","C","D","E","F","G","H","I"},
      
        { "9","8","7","6","5","4","3","2","1"}};


      How to get this by Partition.



      res =  {{{"1","2","3"},{"4","5"},{"6","7","8","9"}},
      
        {{"A","B","C"},{"D","E"},{"F","G","H","I"}},
      
        {{"9","8","7"},{"6","5"},{"4","3","2","1"}}};


      Thanks!






      list-manipulation partitions




      list-manipulation partitions






      share|improve this question













      share|improve this question











      share|improve this question




      share|improve this question










      asked 2 days ago









      JerryJerry

      1,082112




      1,082112






















          3 Answers
          3






          active

          oldest

          votes


















          8












          $begingroup$

          lst2 = lst;
          
lst2[[2 ;;]] = TakeList[Flatten @ #, Length /@ lst[[1]]] & /@ lst[[2 ;;]];
          
lst2



          {{{"1", "2", "3"}, {"4", "5"}, {"6", "7", "8", "9"}},

          {{"A", "B",
          "C"}, {"D", "E"}, {"F", "G", "H", "I"}},

          {{"9", "8", "7"}, {"6",
          "5"}, {"4", "3", "2", "1"}}}




          Also:



          lst3 = lst; 
          
lst3[[2 ;;]] = Function[x, Module[{k = 0}, Map[x[[k++]] &, lst[[1]], {-1}]]] /@ Rest[lst3];
          
lst3



          same result




          MapAt[TakeList[Flatten @ #, Length /@ lst[[1]]] &, lst, {2;;}]



          same result




          Extract[Flatten @ #, List /@ Module[{k = 1}, Map[k++ &, lst[[1]], {-1}]]] & /@ lst



          same result







          share|improve this answer











          $endgroup$













          • $begingroup$
            Thanks! Master who is energetic and always online.;)
            $endgroup$
            – Jerry
            2 days ago



















          3












          $begingroup$

          p = Length /@ First[lst];
          

          
res = Prepend[
          
  Internal`PartitionRagged[#, p] & /@ Rest[lst],
          
  First[lst]]
          




          {{{1, 2, 3}, {4, 5}, {6, 7, 8, 9}},
          
 {{A, B, C}, {D, E}, {F, G, H, I}},
          
 {{9, 8, 7}, {6, 5}, {4, 3, 2, 1}}}






          share|improve this answer









          $endgroup$





















            2












            $begingroup$

            The following also works. I removed the brackets 



            Prepend[Table[FoldPairList[TakeDrop, lst[[i]], Length /@ lst[[1]]], {i, 2, Length[lst]}], lst[[1]]]


            Also, many thanks to kglr for correcting my code.



            FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst]





            share|improve this answer











            $endgroup$









            • 1




              $begingroup$
              Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
              $endgroup$
              – kglr
              2 days ago










            • $begingroup$
              @kglr thank you very much! I do not handle pure functions well.
              $endgroup$
              – Titus
              2 days ago











            Your Answer





            StackExchange.ifUsing("editor", function () {
            return StackExchange.using("mathjaxEditing", function () {
            StackExchange.MarkdownEditor.creationCallbacks.add(function (editor, postfix) {
            StackExchange.mathjaxEditing.prepareWmdForMathJax(editor, postfix, [["$", "$"], ["\\(","\\)"]]);
            });
            });
            }, "mathjax-editing");

            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%2f189819%2fhow-to-partition-rest-rows-by-the-first-row%23new-answer', 'question_page');
            }
            );

            Post as a guest















            Required, but never shown

























            3 Answers
            3






            active

            oldest

            votes








            3 Answers
            3






            active

            oldest

            votes









            active

            oldest

            votes






            active

            oldest

            votes









            8












            $begingroup$

            lst2 = lst;
            
lst2[[2 ;;]] = TakeList[Flatten @ #, Length /@ lst[[1]]] & /@ lst[[2 ;;]];
            
lst2



            {{{"1", "2", "3"}, {"4", "5"}, {"6", "7", "8", "9"}},

            {{"A", "B",
            "C"}, {"D", "E"}, {"F", "G", "H", "I"}},

            {{"9", "8", "7"}, {"6",
            "5"}, {"4", "3", "2", "1"}}}




            Also:



            lst3 = lst; 
            
lst3[[2 ;;]] = Function[x, Module[{k = 0}, Map[x[[k++]] &, lst[[1]], {-1}]]] /@ Rest[lst3];
            
lst3



            same result




            MapAt[TakeList[Flatten @ #, Length /@ lst[[1]]] &, lst, {2;;}]



            same result




            Extract[Flatten @ #, List /@ Module[{k = 1}, Map[k++ &, lst[[1]], {-1}]]] & /@ lst



            same result







            share|improve this answer











            $endgroup$













            • $begingroup$
              Thanks! Master who is energetic and always online.;)
              $endgroup$
              – Jerry
              2 days ago
















            8












            $begingroup$

            lst2 = lst;
            
lst2[[2 ;;]] = TakeList[Flatten @ #, Length /@ lst[[1]]] & /@ lst[[2 ;;]];
            
lst2



            {{{"1", "2", "3"}, {"4", "5"}, {"6", "7", "8", "9"}},

            {{"A", "B",
            "C"}, {"D", "E"}, {"F", "G", "H", "I"}},

            {{"9", "8", "7"}, {"6",
            "5"}, {"4", "3", "2", "1"}}}




            Also:



            lst3 = lst; 
            
lst3[[2 ;;]] = Function[x, Module[{k = 0}, Map[x[[k++]] &, lst[[1]], {-1}]]] /@ Rest[lst3];
            
lst3



            same result




            MapAt[TakeList[Flatten @ #, Length /@ lst[[1]]] &, lst, {2;;}]



            same result




            Extract[Flatten @ #, List /@ Module[{k = 1}, Map[k++ &, lst[[1]], {-1}]]] & /@ lst



            same result







            share|improve this answer











            $endgroup$













            • $begingroup$
              Thanks! Master who is energetic and always online.;)
              $endgroup$
              – Jerry
              2 days ago














            8












            8








            8





            $begingroup$

            lst2 = lst;
            
lst2[[2 ;;]] = TakeList[Flatten @ #, Length /@ lst[[1]]] & /@ lst[[2 ;;]];
            
lst2



            {{{"1", "2", "3"}, {"4", "5"}, {"6", "7", "8", "9"}},

            {{"A", "B",
            "C"}, {"D", "E"}, {"F", "G", "H", "I"}},

            {{"9", "8", "7"}, {"6",
            "5"}, {"4", "3", "2", "1"}}}




            Also:



            lst3 = lst; 
            
lst3[[2 ;;]] = Function[x, Module[{k = 0}, Map[x[[k++]] &, lst[[1]], {-1}]]] /@ Rest[lst3];
            
lst3



            same result




            MapAt[TakeList[Flatten @ #, Length /@ lst[[1]]] &, lst, {2;;}]



            same result




            Extract[Flatten @ #, List /@ Module[{k = 1}, Map[k++ &, lst[[1]], {-1}]]] & /@ lst



            same result







            share|improve this answer











            $endgroup$



            lst2 = lst;
            
lst2[[2 ;;]] = TakeList[Flatten @ #, Length /@ lst[[1]]] & /@ lst[[2 ;;]];
            
lst2



            {{{"1", "2", "3"}, {"4", "5"}, {"6", "7", "8", "9"}},

            {{"A", "B",
            "C"}, {"D", "E"}, {"F", "G", "H", "I"}},

            {{"9", "8", "7"}, {"6",
            "5"}, {"4", "3", "2", "1"}}}




            Also:



            lst3 = lst; 
            
lst3[[2 ;;]] = Function[x, Module[{k = 0}, Map[x[[k++]] &, lst[[1]], {-1}]]] /@ Rest[lst3];
            
lst3



            same result




            MapAt[TakeList[Flatten @ #, Length /@ lst[[1]]] &, lst, {2;;}]



            same result




            Extract[Flatten @ #, List /@ Module[{k = 1}, Map[k++ &, lst[[1]], {-1}]]] & /@ lst



            same result








            share|improve this answer














            share|improve this answer



            share|improve this answer








            edited 2 days ago

























            answered 2 days ago









            kglrkglr

            180k9199410




            180k9199410












            • $begingroup$
              Thanks! Master who is energetic and always online.;)
              $endgroup$
              – Jerry
              2 days ago


















            • $begingroup$
              Thanks! Master who is energetic and always online.;)
              $endgroup$
              – Jerry
              2 days ago
















            $begingroup$
            Thanks! Master who is energetic and always online.;)
            $endgroup$
            – Jerry
            2 days ago




            $begingroup$
            Thanks! Master who is energetic and always online.;)
            $endgroup$
            – Jerry
            2 days ago











            3












            $begingroup$

            p = Length /@ First[lst];
            

            
res = Prepend[
            
  Internal`PartitionRagged[#, p] & /@ Rest[lst],
            
  First[lst]]
            




            {{{1, 2, 3}, {4, 5}, {6, 7, 8, 9}},
            
 {{A, B, C}, {D, E}, {F, G, H, I}},
            
 {{9, 8, 7}, {6, 5}, {4, 3, 2, 1}}}






            share|improve this answer









            $endgroup$


















              3












              $begingroup$

              p = Length /@ First[lst];
              

              
res = Prepend[
              
  Internal`PartitionRagged[#, p] & /@ Rest[lst],
              
  First[lst]]
              




              {{{1, 2, 3}, {4, 5}, {6, 7, 8, 9}},
              
 {{A, B, C}, {D, E}, {F, G, H, I}},
              
 {{9, 8, 7}, {6, 5}, {4, 3, 2, 1}}}






              share|improve this answer









              $endgroup$
















                3












                3








                3





                $begingroup$

                p = Length /@ First[lst];
                

                
res = Prepend[
                
  Internal`PartitionRagged[#, p] & /@ Rest[lst],
                
  First[lst]]
                




                {{{1, 2, 3}, {4, 5}, {6, 7, 8, 9}},
                
 {{A, B, C}, {D, E}, {F, G, H, I}},
                
 {{9, 8, 7}, {6, 5}, {4, 3, 2, 1}}}






                share|improve this answer









                $endgroup$



                p = Length /@ First[lst];
                

                
res = Prepend[
                
  Internal`PartitionRagged[#, p] & /@ Rest[lst],
                
  First[lst]]
                




                {{{1, 2, 3}, {4, 5}, {6, 7, 8, 9}},
                
 {{A, B, C}, {D, E}, {F, G, H, I}},
                
 {{9, 8, 7}, {6, 5}, {4, 3, 2, 1}}}







                share|improve this answer












                share|improve this answer



                share|improve this answer










                answered 2 days ago









                Chris DegnenChris Degnen

                21.9k23585




                21.9k23585























                    2












                    $begingroup$

                    The following also works. I removed the brackets 



                    Prepend[Table[FoldPairList[TakeDrop, lst[[i]], Length /@ lst[[1]]], {i, 2, Length[lst]}], lst[[1]]]


                    Also, many thanks to kglr for correcting my code.



                    FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst]





                    share|improve this answer











                    $endgroup$









                    • 1




                      $begingroup$
                      Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                      $endgroup$
                      – kglr
                      2 days ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      2 days ago
















                    2












                    $begingroup$

                    The following also works. I removed the brackets 



                    Prepend[Table[FoldPairList[TakeDrop, lst[[i]], Length /@ lst[[1]]], {i, 2, Length[lst]}], lst[[1]]]


                    Also, many thanks to kglr for correcting my code.



                    FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst]





                    share|improve this answer











                    $endgroup$









                    • 1




                      $begingroup$
                      Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                      $endgroup$
                      – kglr
                      2 days ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      2 days ago














                    2












                    2








                    2





                    $begingroup$

                    The following also works. I removed the brackets 



                    Prepend[Table[FoldPairList[TakeDrop, lst[[i]], Length /@ lst[[1]]], {i, 2, Length[lst]}], lst[[1]]]


                    Also, many thanks to kglr for correcting my code.



                    FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst]





                    share|improve this answer











                    $endgroup$



                    The following also works. I removed the brackets 



                    Prepend[Table[FoldPairList[TakeDrop, lst[[i]], Length /@ lst[[1]]], {i, 2, Length[lst]}], lst[[1]]]


                    Also, many thanks to kglr for correcting my code.



                    FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst]






                    share|improve this answer














                    share|improve this answer



                    share|improve this answer








                    edited 2 days ago

























                    answered 2 days ago









                    TitusTitus

                    645417




                    645417








                    • 1




                      $begingroup$
                      Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                      $endgroup$
                      – kglr
                      2 days ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      2 days ago














                    • 1




                      $begingroup$
                      Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                      $endgroup$
                      – kglr
                      2 days ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      2 days ago








                    1




                    1




                    $begingroup$
                    Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                    $endgroup$
                    – kglr
                    2 days ago




                    $begingroup$
                    Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
                    $endgroup$
                    – kglr
                    2 days ago












                    $begingroup$
                    @kglr thank you very much! I do not handle pure functions well.
                    $endgroup$
                    – Titus
                    2 days ago




                    $begingroup$
                    @kglr thank you very much! I do not handle pure functions well.
                    $endgroup$
                    – Titus
                    2 days ago


















                    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%2f189819%2fhow-to-partition-rest-rows-by-the-first-row%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

                    If I really need a card on my start hand, how many mulligans make sense? [duplicate]

                    Image
                    5 This question already has an answer here: How do you calculate the likelihood of drawing certain cards in your opening hand? 3 answers There is a funny modern deck where you play Treasure Hunt, but you really need to have it on the starting hand. How many mulligans should I take, if my deck contains 60 cards and contains 4 copies of Treasure Hunt? magic-the-gathering probability share | improve this question asked Nov 23 '18 at 12:12 dan dan 152 4
                    Read more

                    Alcedinidae

                    Image
                    Alcedinidae Martin-pêcheur à dos bleu ( Alcedo azurea ) Classification (COI) Règne Animalia Embranchement Chordata Sous-embr. Vertebrata Classe Aves Ordre Coraciiformes Famille Alcedinidae Rafinesque, 1815 Les Alcédinidés ou Alcedinidae forment une famille d'oiseaux plus connus sous les noms de martins-pêcheurs et martins-chasseurs. Sommaire 1 Description 2 Répartition et habitat 3 Systématique 3.1 Liste alphabétique des genres 3.2 Liste des espèces 4 Chez les Anciens : l'alcyon 4.1 Étymologie (Littré) 4.2 Oiseau « fabuleux » ? 5 Notes 6 Articles connexes 7 Liens externes 7.1 Bibliographie Description | Ce sont des oiseaux compacts de taille petite à moyenne (10 à 46 cm), au bec droit et long, en forme de poignard. Leurs pattes sont courtes, et ils portent un plumage aux couleurs vives. Répartition et habitat | Cosmopolites, ils fréquentent surtout
                    Read more

                    Can an atomic nucleus contain both particles and antiparticles? [duplicate]

                    Image
                    9 $begingroup$ This question already has an answer here: What happens if we put together a proton and an antineutron? 2 answers Is it theoretically possible to make a "deuterium" atom containing a proton and an antineutron in its nucleus? Would the strong nuclear force cause attraction between a proton and an antineutron? Would such a nucleus be stable, or would the proton somehow annihilate the antineutron when close enough? nuclear-physics antimatter share | cite | improve this question asked yesterday
                    Read more