Sexy primes: Difference between revisions

Content added Content deleted
(Modify task a bit for the unsexy primes portion.)
(→‎{{header|Perl 6}}: Modify code to match updated task)
Line 34: Line 34:


my $max = 1_000_000;
my $max = 1_000_000;
my %primes = $sieve.primes($max + 36) X=> 1;
my %primes = $sieve.primes($max) X=> 1;


my $primes = %primes.keys.categorize: { .&sexy }
my $primes = %primes.keys.categorize: { .&sexy }
Line 46: Line 46:
}
}


say "First 25 unsexy primes less than {comma $max}: ", $primes<unsexy>.sort(+*)[^25];
say "Number of unsexy primes less than {comma $max}: ", +$primes<unsexy>;
say " Last 10 unsexy primes less than {comma $max}: ", $primes<unsexy>.sort(+*).tail(10);


sub sexy ($i) {
sub sexy ($i) {
Line 71: Line 72:
Last 5 sexy prime quintuplets less than 1,000,000: (5 11 17 23 29)
Last 5 sexy prime quintuplets less than 1,000,000: (5 11 17 23 29)


First 25 unsexy primes less than 1,000,000: (2 3 19 29 43 59 71 79 89 109 113 127 137 139 149 163 179 181 197 199 211 229 239 241 269)</pre>
Number of unsexy primes less than 1,000,000: 62112
Last 10 unsexy primes less than 1,000,000: (999853 999863 999883 999907 999917 999931 999959 999961 999979 999983)</pre>
Retrieved from "https://rosettacode.org/wiki/Sexy_primes"