Successive prime differences: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: use module instead of (deprecated) smartmatch) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: print not say) |
||
| Line 1,346: | Line 1,346: | ||
<lang perl>use strict; |
<lang perl>use strict; |
||
use warnings; |
use warnings; |
||
use List::EachCons; |
use List::EachCons; |
||
use Array::Compare; |
use Array::Compare; |
||
| Line 1,355: | Line 1,354: | ||
my @intervals = map { $primes[$_] - $primes[$_-1] } 1..$#primes; |
my @intervals = map { $primes[$_] - $primes[$_-1] } 1..$#primes; |
||
print "Groups of successive primes <= $limit\n"; |
|||
my $c = Array::Compare->new; |
my $c = Array::Compare->new; |
||