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

                    "Incorrect syntax near the keyword 'ON'. (on update cascade, on delete cascade,)

                    Image
                    .everyoneloves__top-leaderboard:empty,.everyoneloves__mid-leaderboard:empty,.everyoneloves__bot-mid-leaderboard:empty{ height:90px;width:728px;box-sizing:border-box; } 2 total noob sorry any help greatly appreciated. I keep getting this "Incorrect syntax near the keyword 'ON'." heres my codes code one CREATE TABLE supplier ( supplierID INT PRIMARY KEY, ISBN INT FOREIGN KEY REFERENCES book(ISBN), price DECIMAL (5,2), ON UPDATE CASCADE, ON DELETE CASCADE, ); code two CREATE TABLE orders ( orderID INT PRIMARY KEY, customerID INT FOREIGN KEY REFERENCES customer(customerID), ISBN INT FOREIGN KEY REFERENCES book(ISBN), orderDate date, ON UPDATE CASCADE, ON DELETE CASCADE, ); Ive run out of stuff to try other than dumbing it down to uselessness.
                    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

                    RAC Tourist Trophy

                    Image
                    Pour les articles homonymes, voir Tourist Trophy. Le RAC Tourist Trophy est une course automobile organisée par le Royal Automobile Club d'Angleterre. Créée en 1905, cette course a fait partie des épreuves comptant pour le championnat du monde des voitures de sport entre 1953 et 1955, en 1958 et 1959, et entre 1962 et 1965. Après une interruption de 17 ans (l'épreuve s'arrête après 1988), le RAC Tourist Trophy reprend en 2005 sous l'égide de la FIA GT. Palmarès | John Napier sur Arrol-Johnston, vainqueur du premier RAC Tourist Trophy, en 1905. L'honorable C.S. Rolls, vainqueur du RAC Tourist Trophy 1906. Ernest Curtis, sur Rover 20 hp, vainqueur du RAC Tourist Trophy 1907. William Watson, vainqueur du RAC Tourist Trophy 1908. Kenelm Lee Guinness, vainqueur du RAC Tourist Trophy 1914 sur Sunbeam. Départ du RAC Tourist Trophy 1928. Louis Gérard, vainqueur du RAC Tourist Trophy 1938 sur Delage. Année Circuit Vainqueur
                    Read more