#!/usr/bin/perl

sub kowariancja {
    my ($element_tablicy1, $element_tablicy2) = @_;
    my ($i, $wynik);
    for ($i = 0; $i < @$element_tablicy1; $i++) {
        $wynik += $element_tablicy1->[$i] * $element_tablicy2->[$i];
    }
    $wynik /= @$element_tablicy1;
    $wynik -= srednia($element_tablicy1) * srednia($element_tablicy2);
}

@odslony = (2376, 4024, 9696, 7314, 7710);
@sprzedaz = (310.94, 315.88, 514.15, 500.18, 610.37);

print kowariancja(\@odslony, \@sprzedaz), "\n";

# $srednia = srednia(\@tablica) oblicza srednia dla tablicy z wartosciami.
#
sub srednia {
    my ($element) = @_;
    my $wynik;
    foreach (@$element) { $wynik += $_ }
    return $wynik / @$arrayref;
}
