在Mathematica中重新排列嵌套列表

高紧

我有一个列表:
list1 = {{{3, 3, 3, 3}, {1, 1, 1, 1}, {2, 2, 2, 2}}, {{3, 3, 3, 3}, {1, 1, 1, 1}, {2, 2, 2, 2}}};
从上面的列表中,我想获得以下列表:
{{{3, 3, 3, 3, 3, 3, 3, 3}, {1, 1, 1, 1, 1, 1, 1, 1}, {2, 2, 2, 2, 2, 2, 2, 2}}}
我试图使用ArrayReshape,但是结果列表不是我想要的:
list2 = ArrayReshape[list1, {1, 3, 8}]
{{{3, 3, 3, 3, 1, 1, 1, 1}, {2, 2, 2, 2, 3, 3, 3, 3}, {1, 1, 1, 1, 2, 2, 2, 2}}}
* edit
所需的解决方案应该推广到所有输入都不同的列表。
**编辑
一般案例列表的示例:
{{{a1,a2,a3},{b1,b2,b3},{c1,c2,c3}},{{d1,d2,d3},{e1,e2,e3},{f1,f2,f3}}}
和所需结果:
{{{a1,a2,a3,d1,d2,d3},{b1,b2,b3,e1,e2,e3},{c1,c2,c3,f1,f2,f3}}}

法案

尝试

list1 = {{{3,3,3,3},{1,1,1,1},{2,2,2,2}},{{3,3,3,3},{1,1,1,1},{2,2,2,2}}}; 
f[v_]:=Table[v,{Count[Flatten[list1],v]}]
Map[f,DeleteDuplicates[Flatten[list1]]]

立即返回

{{3,3,3,3,3,3,3,3},{1,1,1,1,1,1,1,1},{2,2,2,2,2,2,2,2}}

编辑

这是否是您想要的?

list1 = {{{1,2,3,4},{5,6,7,8},{9,10,11,12}},
         {{13,14,15,16},{17,18,19,20},{21,22,23,24}}};
MapThread[Join,list1]

哪个返回

{{1,2,3,4,13,14,15,16},{5,6,7,8,17,18,19,20},{9,10,11,12,21,22,23,24}}

只是猜测

本文收集自互联网,转载请注明来源。

如有侵权,请联系 [email protected] 删除。

编辑于
0

我来说两句

0 条评论
登录 后参与评论

相关文章