Select Code to Download

sub bzr (@) {
    my @a = @_;
...
    my $i = @_;
    map +($n=randi($i--), $a[$n], $a[$n]=$a[$i])[1], @_;
}

      Rate  run  buk
run 7467/s   -- -12%
buk 8454/s  13%   --