Select Code to Download

Select or download this

#!/usr/bin/perl -w
#
...
}
show_results($N, $nmatch, $total);

Select or download this

[  1 loop ]  Matches:         5 /         5 (100.0%)

Select or download this

# Two loops
$N = 2;
...
    pop @$pvals;
}
show_results($N, $nmatch, $total)

Select or download this

[  1 loop ]  Matches:         5 /         5 (100.0%)
[  2 loops]  Matches:         2 /        25 (  8.0%)

Select or download this


# Three loops
...
    pop @$pvals;
}
show_results($N, $nmatch, $total);

Select or download this

# Four loops
$N = 4;
...
    pop @$pvals;
}
show_results($N, $nmatch, $total);

Select or download this

[  1 loop ]  Matches:         5 /         5 (100.0%)
[  2 loops]  Matches:         2 /        25 (  8.0%)
[  3 loops]  Matches:        28 /       125 ( 22.4%)
[  4 loops]  Matches:       110 /       625 ( 17.6%)

Select or download this

sub abstract_loop($$$) {
    my ($N, $plevel, $pvals) = @_;
...
arbitrary_N_loops(7);
arbitrary_N_loops(8);

Select or download this

[  1 loop ]  Matches:         5 /         5 (100.0%)
[  2 loops]  Matches:         2 /        25 (  8.0%)
...
[  6 loops]  Matches:      3615 /     15625 ( 23.1%)
[  7 loops]  Matches:     18550 /     78125 ( 23.7%)
[  8 loops]  Matches:     92598 /    390625 ( 23.7%)