Help for this page

Select Code to Download

Select or download this

perl> cmpthese -1, {
    '<=>' => q[@s1=sort{$b<=>$a} 1..10000], 
...
       Rate  <=>    -
 <=> 33.8/s   -- -82%
-     183/s 441%   --