Perfect numbers: Difference between revisions
m
→{{header|Perl 6}}: Actually filter for primes. Wasn't wrong, just slower
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a much faster variation) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Actually filter for primes. Wasn't wrong, just slower) |
||
Line 2,137:
<pre>6 28 496 8128</pre>
Much, much faster version:
<lang perl6>my @primes = lazy (2,3,*+2 … Inf).grep: { .is-prime };
my @perfects = lazy gather for @primes {
my $n = 2**$_ - 1;
| |||