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;
  2. or download this
    perl -MTime::HiRes=time -wE"my $t=time; my @a=map $_,1..1e6;say time-$
++t;
  3. or download this
    C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=(1..1e6);say
+ time-$t;"
0.0974979400634766
...

C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=map {$_}1..1
+e6;say time-$t;"
0.339046001434326