Partition of lists with specified elements

Question

I have an array like this and want to split it into sublists. It should contain the first element "Res" without curly braces and the one sublist starts from 2 to the 9th column the 3rd should start from 10th column to 16th.

Answer 1

Let's walk through this in a bit of detail. First we need some data, and since you haven't provided any in copy-paste-able form, I'll make some up:

list = {Take[Alphabet[], 16], Take[Alphabet[], -16]}

{{"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p"}, {"k", "l", "m", "n", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}}

You said you tried TakeList[#, {1, 8, 9}] & /@ list, but since you only have 16 elements in each list (unless I miscounted), that will generate error messages. There are two remedies. First, match the length of your input list exactly:

TakeList[#, {1, 8, 7}] & /@ list

Alternatively, use All to finish off (this would be nice if you don't always know the exact length):

newList = TakeList[#, {1, 8, All}] & /@ list

(I assigned this to the variable newList so we can use it later.)

Both of these produce something that looks like this:

{{{"a"}, {"b", "c", "d", "e", "f", "g", "h", "i"}, {"j", "k", "l", "m", "n", "o", "p"}}, 
{{"k"}, {"l", "m", "n", "o", "p", "q", "r", "s"}, {"t", "u", "v", "w", "x", "y", "z"}}}

Okay, now you don't want those first elements to be a list--that's a job for FlattenAt. We want to flatten at the first position, and we want to do it for all lists in our newList structure. So, we'll use Map again:

FlattenAt[1] /@ newList

{{"a", {"b", "c", "d", "e", "f", "g", "h", "i"}, {"j", "k", "l", "m", "n", "o", "p"}}, {"k", {"l", "m", "n", "o", "p", "q", "r", "s"}, {"t", "u", "v", "w", "x", "y", "z"}}}

Answer 2

Do you require something like the following?

Through[{First, Splice@TakeList[Rest@#,{8,7}]&}[#]]&/@list2

(* 
   {
    {a, {b, c, d, e, f, g, h, i}, {j, k, l, m, n, o, p}},  
    {k, {l, m, n, o, p, q, r, s}, {t, u, v, w, x, y, z}}
   }
*)

Or, taking the example data from your previous question:

Through[{First, Splice@TakeList[Rest@#,{8,7}]&}[#]]&/@list


(* 
    {
      {Res , {Around[2.5, 0.03], Around[1.5, 0.66], 0.07, 
              Around[2.76, 0.357], Around[6.736, 2.14], 
              Around[4.76, 0.8732], Around[12.7, 1.08],Around[33.7, 3.747]},                        
              {50, 0.08, 0.01, 1. 10^-8  , 4, 1, 1}
      }, 

      {Res, {Around[2., 0.07], Around[1.5, 0.01], Around[0.21, 0.06], 
             Around[2.823, 0.68], Around[6.5965, 2.49], Around[3.874, 1.], 
             Around[11.34, 1.1], Around[24.3, 3.02]}, 
            {50, 0.08, 0.01, 1, 4.8, 1, 1}}
      }

*)

where list2 is taken from lericr's answer, and list is taken from your previous question

list2 = {Take[Alphabet[], 16], Take[Alphabet[], -16]}