Inverse von Flatten in Mathematica?

Question

Was ist die Umkehrung von f [x _]: = Flatten [x] wo x ist Array mit Dimensionen Dims?

Answer 1

Es gibt keine integrierte Funktion, aber es ist ziemlich einfach, mit einer Kombination aus Fold und 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

Sie möchten wahrscheinlich Partition[] oder eines seiner Verwandten.