#!/usr/bin/perl
use warnings;
use Math::Matrix;

$a = new Math::Matrix ([1, -2,  3,  4],
                       [4, -5,  6,  7],
                       [7,  8, -9,  10],
                       [8,  9, -9, -11],
                       );

$x = new Math::Matrix ([17,18,19,20]);

print "det-> ",$a->determinant,"\n";

$a->print("A\n");
$E = $a->concat($x->transpose);
$E->print("Equation system\n");
$s = $E->solve;
$s->print("Solutions s\n");
$a->multiply($s)->print("A*s\n");