Select Code to Download

sub binomial_pari {
   my ($k, $n, $p) = @_;
...
   my $Prob = $first * $second * $third;
   return $Prob;
}

Sub Binom Comb       = 0.3125
Sub Binom Log        = 0.3125000000000001128
Sub Binom Pari       = 0.3125000000000000000