Help for this page

Select Code to Download

Select or download this

sub qshuf {
     my %hash;
     sort { $hash{$a}{$b}||=(.5 <=> rand 1) } @_;
}

Select or download this

sub qshuf {
     my %hash;
...
--------------------------------------------------
Std. Dev.   | 69.974 | 58.895 | 53.532 | 62.689