#!/usr/bin/perl

use constant odwrotnosc_pierwiastka_dwa_pi => 1 / sqrt(8 * atan2(1, 1));

sub rozklad_gaussa {
    my ($x, $srednia, $wariancja) = @_;
    return odwrotnosc_pierwiastka_dwa_pi *
        exp( -( ($x - $srednia) ** 2 ) / (2 * $wariancja) ) /
            sqrt $wariancja;
}

print rozklad_gaussa( 0, 0, 5 ), "\n";
