Sexy primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Modify code to match updated task) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: format twiddling) |
||
Line 39:
for <pair 2 triplet 3 quadruplet 4 quintuplet 5> -> $sexy, $cnt {
say "Number of sexy prime {$sexy}s less than {comma $max}: ", comma +$primes{$sexy};
say " Last 5 sexy prime {$sexy}s less than {comma $max}: ",
join ' ', $primes{$sexy}.sort(+*).tail(5).grep(*.defined).map:
Line 46:
}
say "Number of unsexy primes less than {comma $max}: ", comma +$primes<unsexy>;
say " Last 10 unsexy primes less than {comma $max}: ", $primes<unsexy>.sort(+*).tail(10);
Line 60:
sub comma { $^i.flip.comb(3).join(',').flip }</lang>
{{out}}
<pre>Number of sexy prime pairs less than 1,000,000:
Last 5 sexy prime pairs less than 1,000,000: (999371 999377) (999431 999437) (999721 999727) (999763 999769) (999953 999959)
Number of sexy prime triplets less than 1,000,000:
Last 5 sexy prime triplets less than 1,000,000: (997427 997433 997439) (997541 997547 997553) (998071 998077 998083) (998617 998623 998629) (998737 998743 998749)
Line 72:
Last 5 sexy prime quintuplets less than 1,000,000: (5 11 17 23 29)
Number of unsexy primes less than 1,000,000:
Last 10 unsexy primes less than 1,000,000: (999853 999863 999883 999907 999917 999931 999959 999961 999979 999983)</pre>
| |||