perl - 使用 Perl PDL 旋转矩阵

Question

我想使用 Perl 和 PDL 来实现 3x3 矩阵的旋转(如果可能)

即原始矩阵

[ 1, 2, 3 ]
[ 4, 5, 6 ]
[ 7, 8, 9 ]

我想旋转，大约 5，所以它成为新的矩阵

[ 3, 6, 9 ]
[ 2, 5, 8 ]
[ 1, 4, 7 ]

实际上这与 How do you rotate a two dimensional array? 相同但我想使用 Perl 和 PDL。

感谢您的帮助。

Answer 1

也许不是最优化的方法:

pdl> $m = sequence(3,3)+1
pdl> p $m

[
 [1 2 3]
 [4 5 6]
 [7 8 9]
]

pdl> p $m->transpose->slice( ':', '-1:0' )

[
 [3 6 9]
 [2 5 8]
 [1 4 7]
]