Largest difference between adjacent primes: Difference between revisions
Content added Content deleted
SqrtNegInf (talk | contribs) (Added Perl) |
(Add Factor) |
||
| Line 91: | Line 91: | ||
}</lang> |
}</lang> |
||
{{out}}<pre>The largest difference was 114, between 492113 and 492227.</pre> |
{{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}}== |
=={{header|FreeBASIC}}== |
||