Help for this page

Select Code to Download


  1. or download this
    @a = map int( rand 256 ), 1 .. 10e6;;
$t=time; $n=0; $_ > 128 and $n+=$_ for @a; print time-$t, " $n";;
...
@a = sort{ $a <=> $b } @a;;
$t=time; $n=0; $_ > 128 and $n+=$_ for @a; print time-$t, " $n";;
1.31046295166016  952115465
  2. or download this
    @a = map int( rand 256 ), 1 .. 10e6;;
$t=time; $n=0; $_ > 128 and $n+=$_ for @a; print time-$t, " $n";;
...

$t=time; @a = sort{ $a <=> $b } @a; $n=0; $_ > 128 and $n+=$_ for @a; 
+print time-$t, " $n";;
5.25063991546631  952320992