Select Code to Download

#! perl -slw
use strict;
...
P:\test>MP-FET.pl
8.070604647867604097576877668E-7030
  1 trial  of _default ( 25.852ms total), 25.852ms/trial

#! perl -slw
use strict;
...
$T->stop( '' );

$T->report;

sub FishersExactTest2 {
    my @data = @_;
...
    my $divisor  = product( map{ ( $_ ) x $divisors { $_ } } keys %div
+isors  );
    return $dividend / $divisor;
}