Поменяйте местами первый и последний столбцы в матрице

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] }