Successive prime differences: Difference between revisions
Content added Content deleted
(another reference) |
(→{{header|Perl 6}}: Unwrapped sub in .categorize, and fixed typo in URL.) |
||
| Line 201: | Line 201: | ||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||
{{works with|Rakudo|2019.03}} |
{{works with|Rakudo|2019.03}} |
||
Essentially the code from the [[Sexy_primes# |
Essentially the code from the [[Sexy_primes#Perl_6|Sexy primes]] task with minor tweaks. |
||
<lang perl6>use Math::Primesieve; |
<lang perl6>use Math::Primesieve; |
||
| Line 209: | Line 209: | ||
my @primes = $sieve.primes($max); |
my @primes = $sieve.primes($max); |
||
my $filter = @primes.Set; |
my $filter = @primes.Set; |
||
my $primes = @primes.categorize: |
my $primes = @primes.categorize: &successive; |
||
sub successive ($i) { |
sub successive ($i) { |
||