Rare numbers: Difference between revisions
Content deleted Content added
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 )
{
|