Маленькая perl-программа, возвращающая случайное число по Гамма-распределению.
#!/usr/bin/perl
# Генератор случайных чисел по закону гамма-распределения
$k = 20;
$a = 10;
$tmp = 1;
for ($i = 0; $i < $k; $i++){
$tmp *= rand[- $tmp * $a,$tmp * $a];
}
$gamma = - log($tmp) / $a;
print $gamma;