Help for this page

Select Code to Download

Select or download this

  eily => sub {
    my @list = -50..50;
    @list = sort { ~$b <=> ~$a } @list;
    Compare(\@list,[0..50,-50..-1]) or die "@list" if DO_CHECK;
  }

Select or download this

             Rate grepfirst sortfirst      eily
grepfirst 59577/s        --      -14%      -32%
sortfirst 69292/s       16%        --      -21%
eily      87583/s       47%       26%        --