User Portlet User Portlet

Discussions
You could try: transform[a_] := Map[Flatten] @* Transpose @* Map[p |-> Partition[p, Dimensions[a][[1]]]]@a Though, for larger matrices it wouldn't perform well. For starters, the composite `@*` operator is not too fast nor does invoking...
See also Chapter 6 on Computations with Infinite Structures in [The Mathematica Programmer][1] by Roman Maeder. [1]: http://www.wolfram.com/books/profile.cgi?id=3776
Oops, didn't read the first response well enough.