#!/usr/bin/perl

@czasy = (23.0, 22.7, 24.5, 20.0, 25.2, 19.8, 22.4, 24.0, 23.1, 23.3,  24.1, 26.9);

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

sub test_istotnosci_z_jednostronny {
    my ($element, $oczekiwana_srednia, $oczekiwana_wariancja) = @_;
    return (srednia($element) - $oczekiwana_srednia) /
        sqrt($oczekiwana_wariancja / @$element);
}

if (($z = test_istotnosci_z_jednostronny(\@czasy, 24, 1.5)) <= -1.64) {
    print "z rowny $z, a wiec roznica jest statystycznie istotna. \n";
} else {
    print "z rowny $z, a wiec roznica nie jest statystycznie istotna. \n";
}

