Inverse of Flatten in Mathematica?

Question

Qual è l'inverso di f [x _]: = Appiattisci [x] dove x è Array con dimensioni dims?

Answer 1

Non esiste una funzione built-in, ma è abbastanza facile con una combinazione di Fold e 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

Probabilmente si desidera Partition[] o uno dei suoi parenti.