RosettaCodeData/Task/Matrix-transposition/Lang5/matrix-transposition.lang5

3 lines
46 B
Plaintext

12 iota [3 4] reshape 1 + dup .
1 transpose .