#!/usr/bin/perl

use Math::MatrixReal;

$macierz = Math::MatrixReal->new_from_string(<<'MATRIX');
[ 1 2 ]
[ 3 4 ]
MATRIX

# Sprowadzamy macierz do formy LR.
$macierz_transponowana = $macierz->decompose_LR->invert_LR;

print $macierz_transponowana;
