How to Partition rest rows by the first row?

5

$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

asked Jan 19 at 5:51

JerryJerry

1,440212

$endgroup$

add a comment | 

5

$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

asked Jan 19 at 5:51

JerryJerry

1,440212

$endgroup$

add a comment | 

5

5

5

$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

asked Jan 19 at 5:51

JerryJerry

1,440212

$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

asked Jan 19 at 5:51

JerryJerry

1,440212

share|improve this question

asked Jan 19 at 5:51

JerryJerry

1,440212

share|improve this question

share|improve this question

asked Jan 19 at 5:51

JerryJerry

1,440212

asked Jan 19 at 5:51

JerryJerry

1,440212

asked Jan 19 at 5:51

JerryJerry

1,440212

1,440212

add a comment | 

add a comment | 

3 Answers
3

active

oldest

votes

9

$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

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thanks! Master who is energetic and always online.;)
  $endgroup$
  – Jerry
  Jan 19 at 6:06
  

  
  
  
  

add a comment | 

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

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

$endgroup$

add a comment | 

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

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
  $endgroup$
  – kglr
  Jan 19 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @kglr thank you very much! I do not handle pure functions well.
  $endgroup$
  – Titus
  Jan 19 at 10:29
  

  
  
  
  

add a comment | 

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
});


}
});

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

3 Answers
3

active

oldest

votes

3 Answers
3

active

oldest

votes

active

oldest

votes

active

oldest

votes

9

$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

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thanks! Master who is energetic and always online.;)
  $endgroup$
  – Jerry
  Jan 19 at 6:06
  

  
  
  
  

add a comment | 

9

$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

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

$endgroup$

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thanks! Master who is energetic and always online.;)
  $endgroup$
  – Jerry
  Jan 19 at 6:06
  

  
  
  
  

add a comment | 

9

9

9

$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

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

$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

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

share|improve this answer

share|improve this answer

edited Jan 19 at 15:22

edited Jan 19 at 15:22

edited Jan 19 at 15:22

answered Jan 19 at 5:56

kglrkglr

186k10203422

answered Jan 19 at 5:56

kglrkglr

186k10203422

answered Jan 19 at 5:56

kglrkglr

186k10203422

186k10203422

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thanks! Master who is energetic and always online.;)
  $endgroup$
  – Jerry
  Jan 19 at 6:06
  

  
  
  
  

add a comment | 

• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  Thanks! Master who is energetic and always online.;)
  $endgroup$
  – Jerry
  Jan 19 at 6:06
  

  
  
  
  

$begingroup$
Thanks! Master who is energetic and always online.;)
$endgroup$
– Jerry
Jan 19 at 6:06

$begingroup$
Thanks! Master who is energetic and always online.;)
$endgroup$
– Jerry
Jan 19 at 6:06

add a comment | 

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

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

$endgroup$

add a comment | 

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

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

$endgroup$

add a comment | 

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

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

$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

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

share|improve this answer

share|improve this answer

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

answered Jan 19 at 9:55

Chris DegnenChris Degnen

22k23786

22k23786

add a comment | 

add a comment | 

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

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
  $endgroup$
  – kglr
  Jan 19 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @kglr thank you very much! I do not handle pure functions well.
  $endgroup$
  – Titus
  Jan 19 at 10:29
  

  
  
  
  

add a comment | 

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

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

$endgroup$

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
  $endgroup$
  – kglr
  Jan 19 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @kglr thank you very much! I do not handle pure functions well.
  $endgroup$
  – Titus
  Jan 19 at 10:29
  

  
  
  
  

add a comment | 

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

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

$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

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

share|improve this answer

share|improve this answer

edited Jan 19 at 11:12

edited Jan 19 at 11:12

edited Jan 19 at 11:12

answered Jan 19 at 10:04

TitusTitus

660417

answered Jan 19 at 10:04

TitusTitus

660417

answered Jan 19 at 10:04

TitusTitus

660417

660417

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
  $endgroup$
  – kglr
  Jan 19 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @kglr thank you very much! I do not handle pure functions well.
  $endgroup$
  – Titus
  Jan 19 at 10:29
  

  
  
  
  

add a comment | 

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  $begingroup$
  Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
  $endgroup$
  – kglr
  Jan 19 at 10:10
  

  
  
  
  


• 
  
  
  

  
  

  
  
  
  
  
  

  
  $begingroup$
  @kglr thank you very much! I do not handle pure functions well.
  $endgroup$
  – Titus
  Jan 19 at 10:29
  

  
  
  
  

1

1

$begingroup$
Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
$endgroup$
– kglr
Jan 19 at 10:10

$begingroup$
Titus, re "Unfortunately, ..." , just move & outside FoldPairList[...], that is, use FoldPairList[TakeDrop, #, Length /@ lst[[1]]] & /@ Rest[lst].
$endgroup$
– kglr
Jan 19 at 10:10

$begingroup$
@kglr thank you very much! I do not handle pure functions well.
$endgroup$
– Titus
Jan 19 at 10:29

$begingroup$
@kglr thank you very much! I do not handle pure functions well.
$endgroup$
– Titus
Jan 19 at 10:29

add a comment | 

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

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

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

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

Name

Email

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

Sign up or log in

StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

Name

Name

Email

Required, but never shown

Email

Required, but never shown

Email

Required, but never shown

Email

Required, but never shown

Name

Name

Email

Required, but never shown

Email

Required, but never shown

Email

Required, but never shown

Email

Required, but never shown

This page is only for reference, If you need detailed information, please check here