Largest difference between adjacent primes: Difference between revisions
Largest difference between adjacent primes (view source)
Revision as of 23:33, 19 November 2021
, 2 years agoAdd Factor
SqrtNegInf (talk | contribs) (Added Perl) |
(Add Factor) |
||
Line 91:
}</lang>
{{out}}<pre>The largest difference was 114, between 492113 and 492227.</pre>
=={{header|Factor}}==
{{works with|Factor|0.99 2021-06-02}}
<lang factor>USING: arrays formatting kernel lists lists.lazy math math.order
math.primes.lists sequences ;
lprimes dup cdr lzip [ first2 2dup swap - -rot 3array ] lmap-lazy
[ last 1e6 < ] lwhile { 0 } [ max ] foldl
"Largest difference in adjacent primes under a million: %d between %d and %d.\n" vprintf</lang>
{{out}}
<pre>
Largest difference in adjacent primes under a million: 114 between 492113 and 492227.
</pre>
=={{header|FreeBASIC}}==
| |||