Help for this page

Select Code to Download


  1. or download this
    perl -MTime::HiRes=time -wE"my $t=time; my @a=1..1e6;say time-$t; <>"
0.0623979568481445
  2. or download this
    perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,1..1e6;say time-$
+t; <>"
0.216002941131592
  3. or download this
    perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,map $_,1..1e6;say
+ time-$t; <>"
31.4807999134064
  4. or download this
    perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,map $_,1..5e5;say
+ time-$t; <>"
7.87800002098084