Help for this page

Select Code to Download


  1. or download this
    C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=map{$_}map{$
+_}1..1e6;say time-$t;"
12.703125
  2. or download this
    C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=map{$_}map{ 
+$_}1..100e3;say time-$t;"
0.193822860717773
...

C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=map{$_}map{ 
+$_}1..2000e3;say time-$t;"
50.140625
  3. or download this
    C:\Projects>perl -MTime::HiRes=time -wE"my $t=time; my @a=1..16000e3;s
+ay time-$t;"
1.5
...

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