Help for this page

Select Code to Download


  1. or download this
               @classmates = (@classmates, &M1(@n));
  2. or download this
    > perl -lwe'use Benchmark "cmpthese";@a=0..8;cmpthese(-8, {push => sub
+{push@x,@a[0..2]}, comb => sub{@y=(@y,@a[0..2])}})'

...
Rate   comb   push
comb  44.8/s     --  -100%
push 41728/s 93056%     --