Select Code to Download

sub min { # returns the smallest argument given
    my $min = shift;
    for (@_) {
...
    $prod2 *= $_ for (map {1 - $_ } @probs);
    return $prod / ($prod + $prod2);
}