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