Gaussian primes: Difference between revisions
Content added Content deleted
(Realize in F#) |
|||
Line 214: | Line 214: | ||
8 - 5im 5 + 8im -4 + 9im -4 - 9im 9 + 4im -9 + 4im 9 - 4im -9 - 4im 4 - 9im 4 + 9im |
8 - 5im 5 + 8im -4 + 9im -4 - 9im 9 + 4im -9 + 4im 9 - 4im -9 - 4im 4 - 9im 4 + 9im |
||
</pre> |
</pre> |
||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
|||
<lang Mathematica>n = 100; |
|||
digs = Reap@Do[If[Norm[i + I j]^2 < n, If[PrimeQ[i + I j, GaussianIntegers -> True], Sow[i + I j]]], |
|||
{i,Floor[-Sqrt[n]], Ceiling[Sqrt[n]]}, {j, Floor[-Sqrt[n]], Ceiling[Sqrt[n]]} |
|||
]; |
|||
Multicolumn[digs[[2, 1]], Appearance -> "Horizontal"] |
|||
n = 50^2; |
|||
digs = Table[If[Norm[i + I j]^2 < n, If[PrimeQ[i + I j, GaussianIntegers -> True], "*", " "], " "], |
|||
{i,Floor[-Sqrt[n]], Ceiling[Sqrt[n]]}, {j, Floor[-Sqrt[n]], Ceiling[Sqrt[n]]} |
|||
]; |
|||
digs //= Map[StringJoin]; |
|||
digs //= StringRiffle[#, "\n"] &; |
|||
digs</lang> |
|||
{{out}} |
|||
<pre>-9-4 I -9+4 I -8-5 I -8-3 I -8+3 I -8+5 I -7-2 I -7 -7+2 I -6-5 I |
|||
-6-I -6+I -6+5 I -5-8 I -5-6 I -5-4 I -5-2 I -5+2 I -5+4 I -5+6 I |
|||
-5+8 I -4-9 I -4-5 I -4-I -4+I -4+5 I -4+9 I -3-8 I -3-2 I -3 |
|||
-3+2 I -3+8 I -2-7 I -2-5 I -2-3 I -2-I -2+I -2+3 I -2+5 I -2+7 I |
|||
-1-6 I -1-4 I -1-2 I -1-I -1+I -1+2 I -1+4 I -1+6 I -7 I -3 I |
|||
3 I 7 I 1-6 I 1-4 I 1-2 I 1-I 1+I 1+2 I 1+4 I 1+6 I |
|||
2-7 I 2-5 I 2-3 I 2-I 2+I 2+3 I 2+5 I 2+7 I 3-8 I 3-2 I |
|||
3 3+2 I 3+8 I 4-9 I 4-5 I 4-I 4+I 4+5 I 4+9 I 5-8 I |
|||
5-6 I 5-4 I 5-2 I 5+2 I 5+4 I 5+6 I 5+8 I 6-5 I 6-I 6+I |
|||
6+5 I 7-2 I 7 7+2 I 8-5 I 8-3 I 8+3 I 8+5 I 9-4 I 9+4 I |
|||
* * * * |
|||
* * |
|||
* * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * ** ** * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * ** ** * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * * * * * * * |
|||
* * * * |
|||
* * * * * * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * * * |
|||
* * * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * * |
|||
* * * * * * * |
|||
* * |
|||
* * * * |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |