Help for this page

Select Code to Download


  1. or download this
    @a=(1,2,3,0); $x=0; $m=4;
timethese(-10,{ ixwheel=> q{ $x = $a[$x] }
...
               modby2x2=> q{ $x++; $x &= $m }});
 ixwheel: 433011.28/s
modby2x2: 539474.07/s
  2. or download this
    timethese(-10,{ ixwheelix=> q{ $b[ $x=$a[$x] ] = $x }
               modby2x2ix=> q{ $b[$x++] = $x; $x &= $m }});
 ixwheelix: 262030.67/s
modby2x2ix: 220259.36/s