交换矩阵中的第一列和最后一列
Swap first and last columns in matrix
例如,我们有一个矩阵。
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中做到同样漂亮?
翻译成 PowerShell 的代码片段如下所示:
$matrix = (1..5), (6..10), (11..15), (16..20), (21..25)
$matrix | ForEach-Object { $_[0], $_[-1] = $_[-1], $_[0] }
例如,我们有一个矩阵。
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中做到同样漂亮?
翻译成 PowerShell 的代码片段如下所示:
$matrix = (1..5), (6..10), (11..15), (16..20), (21..25)
$matrix | ForEach-Object { $_[0], $_[-1] = $_[-1], $_[0] }