Select Code to Download

./fisher_yates.pl : after 5000 trials shuffling arrays of size 1000:
List::Util::shuffle : 1693 successes, mean:0.0105896962736892, stdev:0
+.00900688731621982
BUK : 1685 successes, mean:0.010799062825769, stdev:0.0092140346941260
+4
tybalt89 : 1622 successes, mean:0.0102906705829024, stdev:0.0084376063
+2828801

./fisher_yates.pl : after 5000 trials shuffling arrays of size 1000:
BUK : 1696 successes, mean:0.0104235933728858, stdev:0.008974970557612
+36
List::Util::shuffle : 1690 successes, mean:0.0106133000677379, stdev:0
+.00908235156157047
tybalt89 : 1614 successes, mean:0.0100835174626996, stdev:0.0089795531
+9759652

./fisher_yates.pl : after 5000 trials shuffling arrays of size 1000:
List::Util::shuffle : 1690 successes, mean:0.0104611128054915, stdev:0
+.00886345338184372
BUK : 1658 successes, mean:0.0102429744950854, stdev:0.008480381381372
+49
tybalt89 : 1652 successes, mean:0.0105683142305418, stdev:0.0089906156
+3593633

#!/usr/bin/env perl

...
        }
        return Statistics::Histogram::get_histogram(\@diffs);
}