Обратное Флаттен в Mathematica?

Question

Каково обратное к f [x _]: = Flatten [x], где x - массив с уменьшенными размерами?

Answer 1

Нет встроенной функции, но это довольно легко с комбинацией Fold и Partition:

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[] или одного из его родственников.