Ormiston pairs: Difference between revisions
→{{header|jq}}: def primeSieve:
(→{{header|jq}}: def primeSieve:) |
|||
Line 828:
'''Preliminaries'''
<syntaxhighlight lang=jq>
# Input: a positive integer
#
# $a[$i] is $i if $i is prime, and false otherwise.
def primeSieve:
# erase(i) sets .[i*j] to false for integral j > 1
def erase($i):
if .[$i] then
reduce (range(2*$i;
else .
end;
Line 892 ⟶ 893:
3722 Ormiston pairs before 10000000
</pre>
=={{header|Pascal}}==
==={{header|Free Pascal}}===
| |||