Anonymous user
Rare numbers: Difference between revisions
→naive
(→naive) |
|||
Line 4,156:
=={{header|Phix}}==
=={{header|Perl}}==
<lang perl>#!/usr/bin/perl
use strict; # https://rosettacode.org/wiki/Rare_numbers
use warnings;
use integer;
my $count = 0;
my @squares;
for my $large ( 0 .. 1e5 )
{
my $largesquared = $squares[$large] = $large ** 2;
for my $small ( 0 .. $large - 1 )
{
my $n = $largesquared + $squares[$small];
2 * $large * $small == reverse $n or next;
printf "%12s %s\n", $n, scalar reverse $n;
$n == reverse $n and die "oops!"; # palindrome check
++$count >= 5 and exit;
}
}</lang>
{{out}}
<pre>
65 56
621770 077126
281089082 280980182
2022652202 2022562202
2042832002 2002382402
</pre>
===naive===
Ridiculously slow, 90s just for the first 3.
Line 4,194 ⟶ 4,224:
{3,281089082,"1 minute and 29s"}
</pre>
===advanced===
{{trans|VB.NET}}
| |||