Sexy primes: Difference between revisions
→{{header|Perl 6}}: Modify code to match updated task
Thundergnat (talk | contribs) (Modify task a bit for the unsexy primes portion.) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Modify code to match updated task) |
||
Line 34:
my $max = 1_000_000;
my %primes = $sieve.primes($max
my $primes = %primes.keys.categorize: { .&sexy }
Line 46:
}
say "
say " Last 10 unsexy primes less than {comma $max}: ", $primes<unsexy>.sort(+*).tail(10);
sub sexy ($i) {
Line 71 ⟶ 72:
Last 5 sexy prime quintuplets less than 1,000,000: (5 11 17 23 29)
Last 10 unsexy primes less than 1,000,000: (999853 999863 999883 999907 999917 999931 999959 999961 999979 999983)</pre>
| |||