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 12 hours ago









      JerryJerry

      1,053112




      1,053112






















          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
            12 hours 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
              7 hours ago










            • $begingroup$
              @kglr thank you very much! I do not handle pure functions well.
              $endgroup$
              – Titus
              7 hours 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
              12 hours 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
              12 hours 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 hours ago

























            answered 12 hours ago









            kglrkglr

            179k9199410




            179k9199410












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


















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
















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




            $begingroup$
            Thanks! Master who is energetic and always online.;)
            $endgroup$
            – Jerry
            12 hours 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 8 hours 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
                      7 hours ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      7 hours 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
                      7 hours ago










                    • $begingroup$
                      @kglr thank you very much! I do not handle pure functions well.
                      $endgroup$
                      – Titus
                      7 hours 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 6 hours ago

























                    answered 8 hours 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
                      7 hours ago










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














                    • 1




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










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








                    1




                    1




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




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












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




                    $begingroup$
                    @kglr thank you very much! I do not handle pure functions well.
                    $endgroup$
                    – Titus
                    7 hours 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

                    SQL Server 17 - Attemping to backup to remote NAS but Access is denied

                    Image
                    .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ margin-bottom:0; } 0 I was attemping to use Ola Hallengrens scripts to backup to a remote NAS, but it was failing and not giving any direct errors, so I tried doing it manually using Server Management Studio and got the following error: TITLE: Microsoft SQL Server Management Studio Failed to retrieve data for this request. (Microsoft.SqlServer.Management.Sdk.Sfc) For help, click: http://go.microsoft.com/fwlink?ProdName=Microsoft%20SQL%20Server&LinkId=20476 ADDITIONAL INFORMATION: An exception occurred while executing a Transact-SQL statement or batch. (Microsoft.SqlServer.ConnectionInfo) The operating system returned the error '0x80070005(Access is denied.)&#
                    Read more

                    Always On Availability groups resolving state after failover - Remote harden of transaction...

                    Image
                    0 My explanation will be opinion based as it is based on my findings. If more information is needed, I am always happy to add it. The setup We have 4 SQL Server 2016 Instances, and all 4 underlying servers are in a WSFC (In my eyes a strange setup since Always On AG's are 2 by 2. But that is a different question.) 4 nodes + Fileshare witness Version: 13.0.5026.0 (all nodes) The instances that are having the failover issues are instances 1 & 2. They have 3 AG's between them. AG1 is primary on instance 1 and is having the issue. AG2 and AG3 are primary on instance 2. Instances 3 and 4 have their own separate AG's (2). AG1's settings The week before Last week, after checking for long running queries (none) and the synchronization state (green accross the board) we initiated a
                    Read more

                    Restoring from pg_dump with foreign key constraints

                    Image
                    5 2 In restoring a database from a pg_dump , a number of errors are being generated and the whole table is subsequently being ignored. An example: ERROR: insert or update on table "channelproducts" violates foreign key constraint "fk_rails_dfaae373a5" DETAIL: Key (channel_id)=(1) is not present in table "channels". Interestingly enough, I've noted that all these instances are popping up because of the sequence of loading. channels is after channelproducts both alphabetically and in the file and thus I can understand why postgres complains about having to create a child without a parent. caveat: the foreign key is being generated automatically by rails 4.2: I could remove the problem at the source but that still does not really solve the problem... version: PostgreSQL
                    Read more