Gaussian primes: Difference between revisions

(→‎{{header|jq}}: simplify)
Line 246:
then ($i|abs) as $m
| select( $m|isPrime and ($m - 3) % 4 == 0 ) | [0, $i]
else ([$r, $i] | select(norm) as| isPrime) $n
| select( $n < ($Radius * $Radius) and ($n|isPrime)) | [$r, $i]
end ;
Line 288 ⟶ 287:
[9,-4] [9,4]
</pre>
 
 
=={{header|Julia}}==
2,442

edits