Rare numbers: Difference between revisions
Content added Content deleted
m (→{{header|Perl}}: negligibly faster ?) |
|||
Line 4,166: | Line 4,166: | ||
for my $large ( 0 .. 1e5 ) |
for my $large ( 0 .. 1e5 ) |
||
{ |
{ |
||
my $largesquared = $squares[$large] = $large ** 2; |
my $largesquared = $squares[$large] = $large * $large; # $large ** 2; |
||
for my $small ( 0 .. $large - 1 ) |
for my $small ( 0 .. $large - 1 ) |
||
{ |
{ |