Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

...
             'direct'   => sub {direct(1,2,3,4,5,6);},
         }
     );

Select or download this

$ perl testSubs.pl
Benchmark: running assigner, direct, shifter, each for at least 2 CPU 
+seconds...
...
shifter  294563/s       --     -23%     -53%
assigner 384577/s      31%       --     -39%
direct   629222/s     114%      64%       --