Anaprimes: Difference between revisions

→‎{{header|jq}}: def primeSieve:
(→‎{{header|Perl}}: labels 10x off, speed up code)
(→‎{{header|jq}}: def primeSieve:)
Line 407:
'''General utilities'''
<syntaxhighlight lang=jq>
# Input: a positive integer
# return an array, $a, of length .+1 or .+2 such that
# $a[$i]Output: isan $i ifarray, $ia, isof prime,length and.+1 falsesuch otherwise.that
# $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; (1 + length) /; $i)) as $j (.; .[i * $j] = false)
else .
end;
2,456

edits