Rosetta Code

Gaussian primes: Difference between revisions

Page Discussion

Gaussian primes (view source)

Revision as of 14:29, 26 July 2022

1,156 bytes removed ,  1 year ago
m
→‎{{header|Perl}}: include zero-component values, tidy output
m (→‎{{header|Perl}}: reduce font size of plot slightly for easier viewing)
m (→‎{{header|Perl}}: include zero-component values, tidy output)
Line 203:
 
=={{header|Perl}}==
{{incorrect|Perl|missing the Gaussian primes with a zero a or b, (3, -3, 3i, -3i, 7, -7,...) in both the list and the plot}}
{{libheader|ntheory}}
<lang perl>#!/usr/bin/perl
Line 227 ⟶ 226:
{
my $norm = $A**2 + $B**2;
if ( is_prime( $norm ) or ($norm - 3) % 4 == 0 or next;
or ( $A==0 && is_prime(abs $B) && (abs($B)-3)%4 == 0)
push @primes, "$A ${B}i";
substror $plot,( ($B==0 + $size + 1) *&& is_prime(2 *abs $size + 2A) +&& (abs($A)-3)%4 +== $size0) + 1, 1,) 'X';{
{
push @primes, sprintf("%2d%2di", $A, $B) =~ s/ (\di)/+$1/r;
substr $plot, ($B + $size + 1) * (2 * $size + 2) + $A + $size + 1, 1, 'X';
}
}
}
Line 235 ⟶ 238:
}</lang>
{{out}}
<pre>Primes within 10
-9-4i, -9+4i, -8-5i, -8-3i, -8+3i, -8+5i, -7-2i, -7+0i, -7+2i, -6-5i, -6-1i, -6+1i,
Primes within 10
-96+5i, -4i5-8i, -9 4i5-6i, -8 5-5i4i, -8 5-3i2i, -8 3i5+2i, -8 5i5+4i, -7 -2i5+6i, -7 2i5+8i, -6 4-5i9i, -6 4-1i5i, -6 4-1i, -6 5i,
-5 -8i4+1i, -5 -6i4+5i, -5 -4i4+9i, -5 3-2i8i, -5 3-2i, -5 4i3+0i, -5 6i3+2i, -5 3+8i, -4 2-9i7i, -4 2-5i, -4 2-1i3i, -4 2-1i,
-4 5i2+1i, -4 9i2+3i, -3 -8i2+5i, -3 -2i2+7i, -3 2i1-6i, -3 8i1-4i, -2 1-7i2i, -2 1-5i1i, -2 -3i1+1i, -2 -1i1+2i, -2 1i1+4i, -2 3i1+6i,
0-2 5i7i, 0-23i, 0+3i, 0+7i, -1 1-6i, - 1 -4i, - 1 -2i, - 1 -1i, - 1 +1i, -1 1+2i, - 1 +4i, -1 6i, 1 -+6i, 1 -4i,
1 2-2i7i, 1 2-1i5i, 1 1i2-3i, 1 2i2-1i, 1 4i2+1i, 1 6i2+3i, 2 -7i, 2 -+5i, 2 -3i+7i, 2 3-1i8i, 2 1i3-2i, 2 3i3+0i, 2 5i3+2i,
2 7i 3+8i, 3 4-8i9i, 3 4-2i5i, 3 2i4-1i, 3 8i4+1i, 4 -9i+5i, 4 -5i+9i, 4 5-1i8i, 4 1i5-6i, 4 5i5-4i, 4 9i, 5 -8i2i, 5 -6i+2i,
5 -+4i, 5 -2i, 5 2i+6i, 5 4i, 5 6i+8i, 5 8i, 6 -5i, 6 -1i, 6 6+1i, 6 6+5i, 7 -2i, 7+0i, 7+2i, 8 -5i, 8-3i,
8 -+3i, 8 3i, 8 +5i, 9 -4i, 9 9+4i</pre>
<pre style="font-size:66%;">Plot within 50▼
</pre>
X X X X X X X X X X X X X X ▼
▲<pre style="font-size:66%;">
X X X X X X X X X X X X X X X X X X X X X X X X ▼
Plot within 50
X X X X X X X
X X X X X X X X
X X X X X X X X X
X X X X X X X X
X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
▲ X X X X X X X X X X X X X X
▲ X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X ▼
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X XX XX X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X XX XX X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X X X X X X
X X X X X X X X
X X X X X X X X X X X X X X
X X X X X X X X X X X X
X X X X X X X X X X X X X
X X X X X X X X X X X X X
X X X X X X X X X X X
X X X X X X X X X X
X X X X X X X X
X X X X X X X
▲ X X X X X X X X X X X X X X
</pre>
X X X X</pre>
 
=={{header|Phix}}==
SqrtNegInf
2,392

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/321950"