#!/usr/bin/perl -w

use Math::MatrixReal;
$, = "\n";

# Tworzymy trojkat.
@trojkat = (Math::MatrixReal->new_from_string("[ -1 ]\n[ -1 ]\n"),
             Math::MatrixReal->new_from_string("[  0 ]\n[  1 ]\n"),
             Math::MatrixReal->new_from_string("[  1 ]\n[ -1 ]\n"));

# Przesuwamy go do gory i w prawo.
foreach (@trojkat) { $_->add_scalar($_, 2) }

# Wyswietlamy nowe punkty.
print @trojkat;
