Gaussian primes: Difference between revisions
m
→{{header|Perl}}: remove stray curly
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: include zero-component values, tidy output) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: remove stray curly) |
||
Line 228:
if ( is_prime( $norm )
or ( $A==0 && is_prime(abs $B) && (abs($B)-3)%4 == 0)
or ( $B==0 && is_prime(abs $A) && (abs($A)-3)%4 == 0) )
{
push @primes, sprintf("%2d%2di", $A, $B) =~ s/ (\di)/+$1/r;
| |||