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