Group Abstract

Message Boards

WOLFRAM COMMUNITY

37 Views

5 Replies

4 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Wolfram Language

Flattening multilevel list formats

Jim Clinton

Posted 16 hours ago

{{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 9 m^2 + 3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 32 m, 9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}} How to convert the above output into the format shown below? {{{36 - 72 m^2, -36, 9 + 8 m^2}, {4 - 2 e m - 9 m^2 + 3 d m^2, -4 + e m + d m^2, 1 + m^2}}, {{-40, 32 m, 9 + 8 m^2}, {-5 + 5 d, e + 4 m + d m, 1 + m^2}}} My current implementation seems suboptimal in terms of conciseness. Could you suggest more efficient methods? original = {{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 9 m^2 + 3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 32 m, 9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}}; firstLayer = Flatten /@ original[[1]]; secondLayer = Flatten /@ original[[2]]; result = {firstLayer, secondLayer}

{{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 9 m^2 + 
         3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 32 m, 
        9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}}

How to convert the above output into the format shown below?

{{{36 - 72 m^2, -36, 
   9 + 8 m^2}, {4 - 2 e m - 9 m^2 + 3 d m^2, -4 + e m + d m^2, 
   1 + m^2}}, {{-40, 32 m, 9 + 8 m^2}, {-5 + 5 d, e + 4 m + d m, 
   1 + m^2}}}

My current implementation seems suboptimal in terms of conciseness. Could you suggest more efficient methods?

original = {{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 
       9 m^2 + 3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 
      32 m, 9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}};
firstLayer = Flatten /@ original[[1]];
secondLayer = Flatten /@ original[[2]];
result = {firstLayer, secondLayer}

POSTED BY: Jim Clinton

5 Replies

Sort By:

Jim Clinton

Posted 2 hours ago

original = {{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 9 m^2 + 3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 32 m, 9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}}; Map[Flatten, original, {2}]

original = {{{{36 - 72 m^2}, {-36}, {9 + 8 m^2}}, {{4 - 2 e m - 
       9 m^2 + 3 d m^2}, {-4 + e m + d m^2}, {1 + m^2}}}, {{{-40, 
      32 m, 9 + 8 m^2}}, {{-5 + 5 d, e + 4 m + d m, 1 + m^2}}}};
Map[Flatten, original, {2}]

POSTED BY: Jim Clinton