A Matrix Worthy of Perl 6
The Problem
use strict;
use warnings;
use Math::MatrixReal;
my $x = 1;
my $m = Math::MatrixReal->new_from_rows([ [$x, 2*$x], [3*$x, 4*$x] ]);
for(; $x 4; ++$x)
{
print "$m\n";
}
The output of this code is:
[ 1.000000000000E+00 2.000000000000E+00 ] [ 3.000000000000E+00 4.000000000000E+00 ] [ 1.000000000000E+00 2.000000000000E+00 ] [ 3.000000…