#!/usr/bin/perl

use Math::Complex;

# rownanie_kwadratowe($a, $b, $c) 
# Zwraca dwa pierwiastki wielomianu y = ($a * x**2) + ($b * x) + $c
#
sub rownanie_kwadratowe {
    my ($a, $b, $c) = @_;
    my ($tmp) = -0.5 * ($b + ($b/abs($b)) * sqrt($b ** 2 - 4 * $a * $c));
    return ($tmp / $a, $c / $tmp);
}

@wspolczynniki = (1, -1, -2);   # Rozwiazuje x**2 - x - 2 == 0 dla x
@pierwiastki = rownanie_kwadratowe(@wspolczynniki);
print "@pierwiastki\n";

@wspolczynniki = (1, 2, 2);   # Rozwiazuje x**2 + 2*x + 2 == 0 dla x
@pierwiastki = rownanie_kwadratowe(@wspolczynniki);
print "@pierwiastki\n";

