#!/usr/bin/perl

# $odchylenie = odchylenie_standardowe(\@tablica) 
# Oblicza odchylenie standardowe dla tablicy wartoci.
#
sub odchylenie_standardowe {
    my $element = shift;
    my $srednia = srednia($element); # procedura srednia() zostala zdefiniowana wczesniej
    return sqrt( srednia( [map( ($_ - $srednia) ** 2, @$element) ] ) );
}


