交换矩阵中的第一列和最后一列

Question

例如，我们有一个矩阵。

 1,  2,  3,  4,  5
 6,  7,  8,  9, 10
11, 12, 13, 14, 15
16, 17, 18, 19, 20
21, 22, 23, 24, 25

也许在 Perl6 中解决主题标题中的问题的最简单方法看起来像

my @matrix = [1..5], [6..10], [11..15], [16..20], [21..25];
@matrix.map:{.[0,*-1] = .[*-1,0]};

结果

 5,  2,  3,  4,  1
10,  7,  8,  9,  6
15, 12, 13, 14, 11
20, 17, 18, 19, 16
25, 22, 23, 24, 21

如何在PowerShell中做到同样漂亮？

Answer 1

翻译成 PowerShell 的代码片段如下所示：

$matrix = (1..5), (6..10), (11..15), (16..20), (21..25)
$matrix | ForEach-Object { $_[0], $_[-1] = $_[-1], $_[0] }

Swap first and last columns in matrix