Help for this page

Select Code to Download


  1. or download this
    use vars '@r';

...
Std. Dev.   |   6.404 |   6.397 |   5.746 

=cut
  2. or download this
    sub FAQ_FY {
    my $array = shift;
...
Std. Dev.   |   7.305 |   6.105 |   5.998 

=cut
  3. or download this
    #!/usr/bin/perl -ws
use strict;
use vars qw/$size $iter/;
...
#     sqrt( ($d{FAQ_FY}{Ex2} - ($d{FAQ_FY}{Ex}**2/5040))/5039 ),
#     sqrt( ($d{shuffl}{Ex2} - ($d{shuffl}{Ex}**2/5040))/5039 ),
#     sqrt( ($d{supffl}{Ex2} - ($d{supffl}{Ex}**2/5040))/5039 );