Mathematica 中 Flatten 的逆？

Question

f[x_]:=Flatten[x] 的逆是什么，其中 x 是维度为变暗的数组？

Answer 1

没有内置函数，但结合使用 折叠 和 分区：

In[47]:= x1 = RandomReal[{0, 1}, {3, 4, 5}];

In[48]:= dims = Dimensions[x1]

Out[48]= {3, 4, 5}

In[49]:= x2 = Fold[Partition, Flatten[x1], Most[Reverse[dims]]];

In[50]:= x1 == x2

Out[50]= True

Answer 2

您可能需要 Partition[] 或其亲属之一。