11 lines
161 B
Perl
11 lines
161 B
Perl
use Math::Matrix;
|
|
|
|
$m = Math::Matrix->new(
|
|
[1, 1, 1, 1],
|
|
[2, 4, 8, 16],
|
|
[3, 9, 27, 81],
|
|
[4, 16, 64, 256],
|
|
[5, 25, 125, 625],
|
|
);
|
|
|
|
$m->transpose->print;
|