Largest difference between adjacent primes: Difference between revisions
Largest difference between adjacent primes (view source)
Revision as of 23:04, 19 November 2021
, 2 years agoAdded Perl
(→{{header|ALGOL 68}}: Typos) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 151:
290 R = P2 - P
300 RETURN</lang>
=={{header|Perl}}==
<lang perl>use strict;
use warnings;
use Primesieve qw(generate_primes);
for my $n (2..8) {
my @primes = generate_primes (1, 10**$n);
my($max,$p,$diff) = 0;
map { ($diff = $primes[$_] - $primes[$_-1]) > $max and ($max,$p) = ($diff,$_-1) } 1..$#primes;
printf "Largest prime gap up to %d: %d - between %d and %d.\n", 10**$n, $max, @primes[$p,$p+1];
}</lang>
{{out}}
<pre>Largest prime gap up to 100: 8 - between 89 and 97.
Largest prime gap up to 1000: 20 - between 887 and 907.
Largest prime gap up to 10000: 36 - between 9551 and 9587.
Largest prime gap up to 100000: 72 - between 31397 and 31469.
Largest prime gap up to 1000000: 114 - between 492113 and 492227.
Largest prime gap up to 10000000: 154 - between 4652353 and 4652507.
Largest prime gap up to 100000000: 220 - between 47326693 and 47326913.</pre>
=={{header|Phix}}==
| |||