Largest difference between adjacent primes: Difference between revisions
Content added Content deleted
(→{{header|ALGOL 68}}: Typos) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 151: | Line 151: | ||
290 R = P2 - P |
290 R = P2 - P |
||
300 RETURN</lang> |
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}}== |
=={{header|Phix}}== |