Transpose Index   <<   >>
 

   y←3 4⍴⍳12

   y                 1 0⍉y          0 1⍉y             0 0⍉y
0 1  2  3         0 4  8         0 1  2  3         0 5 10
4 5  6  7         1 5  9         4 5  6  7
8 9 10 11         2 6 10         8 9 10 11
                  3 7 11


   x←    2 1 2 0 1
   y← ? 11 7 5 3 2 ⍴ 100
   z← x⍉y

   (i j k)← ?⍴z                        v← ?⍴z

   z[i;j;k] = y[k;j;k;i;j]             z[⊂v] = y[⊂v[x]]
1                                   1
           ⍝ x← 2 1 2 0 1