Largest difference between adjacent primes: Difference between revisions

Content added Content deleted
(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}}==