Largest difference between adjacent primes: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) (added AWK) |
|||
Line 268: | Line 268: | ||
290 R = P2 - P |
290 R = P2 - P |
||
300 RETURN</lang> |
300 RETURN</lang> |
||
=={{header|jq}}== |
|||
{{works with|jq}} |
|||
'''Works with gojq, the Go implementation of jq''' |
|||
See [[Erdős-primes#jq]] for a suitable definition of `is_prime` as used here. |
|||
<lang jq># Primes less than . // infinite |
|||
def primes: |
|||
(. // infinite) as $n |
|||
| if $n < 3 then empty |
|||
else 2, (range(3; $n) | select(is_prime)) |
|||
end; |
|||
def largest_difference_between_adjacent_primes: |
|||
reduce primes as $p ( null; # [prev, diff] |
|||
if . == null then [$p, 0] |
|||
else ($p - .[0]) as $diff |
|||
| if $diff > .[1] then [$p, $diff] |
|||
else .[0] = $p |
|||
end |
|||
end) |
|||
| .[1]; |
|||
pow(10; 1, 2, 6) | largest_difference_between_adjacent_primes |
|||
</lang> |
|||
{{out}} |
|||
<pre> |
|||
2 |
|||
8 |
|||
14 |
|||
</pre> |
|||
=={{header|Julia}}== |
=={{header|Julia}}== |
||
Line 293: | Line 325: | ||
The maximum prime interval in primes up to 10000000000 is 354: for example at [4302407359, 4302407713]. |
The maximum prime interval in primes up to 10000000000 is 354: for example at [4302407359, 4302407713]. |
||
</pre> |
</pre> |
||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
==={{header|Free Pascal}}=== |
==={{header|Free Pascal}}=== |