Lychrel numbers: Difference between revisions
→{{header|Perl 6}}: rewrote to be much faster; O(n²) or maybe O(n logn) rather than O(n³)
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: give some indication of progress) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: rewrote to be much faster; O(n²) or maybe O(n logn) rather than O(n³)) |
||
Line 2,374:
=={{header|Perl 6}}==
{{works with|Rakudo|
<lang perl6>my
my @palindromes;▼
my @seeds;
▲my @palindromes;
my $count;
my $max = 500;
my $limit = 10_000;
for 1 ..
my @test;
my $
print "\b" x 20, "Found Lychrel: $int";
%lychrels.push: ($int => [@test]).invert;
$count++;
}
print "\b" x 20;
sub lychrel (Int $l) {
return True if $
@test.push: my $m = $l + $l.flip;
return False if $m == $m.flip;
Line 2,394 ⟶ 2,402:
}
my $next = False;
for
▲ @palindromes.push: $l.key if $l.key == $l.key.flip;
$next = True and last if $ly == $lt;
for @seeds -> $s {▼
last if
last if $next;
}
}
say " Number of Lychrel seed numbers <
say " Lychrel seed numbers <
say "Number of Lychrel related numbers <
say " Number of Lychrel palindromes <
say " Lychrel palindromes <
{{out}}
<pre> Number of Lychrel seed numbers < 10000: 5
Number
Number of Lychrel
=={{Header|PicoLisp}}==
| |||