Gaussian primes: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Clarify) |
(J) |
||
Line 33: | Line 33: | ||
=={{header|J}}== |
|||
Implementation: <lang J>isgpri=: {{ |
|||
if. 1 p: (*+) y do. 1 return. end. |
|||
int=. |(+.y)-.0 |
|||
if. 1=#int do. {.(1 p: int) * 3=4|int else. 0 end. |
|||
}}"0</lang> |
|||
Plot of gaussian primes up to radius 50: <lang J> '#' (<"1]50++.(#~ isgpri * 50>|) ,j./~i:100)} '+' (<50 50)} '|' 50}"1 '-' 50} 100 100$' ' |
|||
| |
|||
# # | # # |
|||
# | # |
|||
# # # # # # # |
|||
# # # # | # # # # |
|||
# # # # | # # # # |
|||
# # # # | # # # # |
|||
# # # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # | # # # # |
|||
# # # # # #|# # # # # # |
|||
# # | # # |
|||
# # # # # # # | # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # #|# # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # # # # # | # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # # #|# # # # # # # # # |
|||
# # # # # # # # # # # | # # # # # # # # # # # |
|||
# # # # #|# # # # # |
|||
# # # # # # # # # # # # # # # # # # # # # |
|||
# # # # # # # # # | # # # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # # # # #|# # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # # | # # # # # # # # # |
|||
# # # # # # # # # #|# # # # # # # # # # |
|||
# # # # # # # # # # | # # # # # # # # # # |
|||
# # # # # # # #|# # # # # # # # |
|||
# # # # # # # # # # # # | # # # # # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # # # # # # # # # # # # |
|||
# # # # # # # # # # # # # #|# # # # # # # # # # # # # # |
|||
# # # # # # # | # # # # # # # |
|||
# # # # # # # # # # # # | # # # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # # #|# # # # # # # # |
|||
# # # # # # # # # # # # # # # | # # # # # # # # # # # # # # # |
|||
# # # # # # # # # # #|# # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # # # # # # # #|# # # # # # # # # # # # # |
|||
# # # # # # # # # # ##|## # # # # # # # # # # |
|||
---#---#-----------#-------#---#-------#---#---#--+--#---#---#-------#---#-------#-----------#---#-- |
|||
# # # # # # # # # # ##|## # # # # # # # # # # |
|||
# # # # # # # # # # # # #|# # # # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # # # # # #|# # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # | # # # # # # # # # # # # # # # |
|||
# # # # # # # #|# # # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # # # # # # # | # # # # # # # # # # # # |
|||
# # # # # # # | # # # # # # # |
|||
# # # # # # # # # # # # # #|# # # # # # # # # # # # # # |
|||
# # # # # # # # # # # # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # # # # # | # # # # # # # # # # # # |
|||
# # # # # # # #|# # # # # # # # |
|||
# # # # # # # # # # | # # # # # # # # # # |
|||
# # # # # # # # # #|# # # # # # # # # # |
|||
# # # # # # # # # | # # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # # # # # # # # # # # # |
|||
# # # # # # # # # # #|# # # # # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # # # | # # # # # # # # # |
|||
# # # # # # # # # # # # # # # # # # # # # |
|||
# # # # #|# # # # # |
|||
# # # # # # # # # # # | # # # # # # # # # # # |
|||
# # # # # # # # #|# # # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # # # # # # # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # | # # # # # # # |
|||
# # # # # # # # | # # # # # # # # |
|||
# # # #|# # # # |
|||
# # # # # # | # # # # # # |
|||
# # # # # # # | # # # # # # # |
|||
# # | # # |
|||
# # # # # #|# # # # # # |
|||
# # # # | # # # # |
|||
# # # # # | # # # # # |
|||
# # # # # # # # # |
|||
# # # # | # # # # |
|||
# # # # | # # # # |
|||
# # # # | # # # # |
|||
# # # # # # # |
|||
# | # |
|||
# # | # # |
|||
</lang> |
|||
Gaussian primes less than radius 10 (sorted by radius):<lang J> 10 10$(/: |)(#~ isgpri * 10>|) ,j./~i:10 |
|||
_1j_1 _1j1 1j_1 1j1 _2j_1 _2j1 _1j_2 _1j2 1j_2 1j2 |
|||
2j_1 2j1 _3 0j_3 0j3 3 _3j_2 _3j2 _2j_3 _2j3 |
|||
2j_3 2j3 3j_2 3j2 _4j_1 _4j1 _1j_4 _1j4 1j_4 1j4 |
|||
4j_1 4j1 _5j_2 _5j2 _2j_5 _2j5 2j_5 2j5 5j_2 5j2 |
|||
_6j_1 _6j1 _1j_6 _1j6 1j_6 1j6 6j_1 6j1 _5j_4 _5j4 |
|||
_4j_5 _4j5 4j_5 4j5 5j_4 5j4 _7 0j_7 0j7 7 |
|||
_7j_2 _7j2 _2j_7 _2j7 2j_7 2j7 7j_2 7j2 _6j_5 _6j5 |
|||
_5j_6 _5j6 5j_6 5j6 6j_5 6j5 _8j_3 _8j3 _3j_8 _3j8 |
|||
3j_8 3j8 8j_3 8j3 _8j_5 _8j5 _5j_8 _5j8 5j_8 5j8 |
|||
8j_5 8j5 _9j_4 _9j4 _4j_9 _4j9 4j_9 4j9 9j_4 9j4</lang> |
|||
=={{header|Raku}}== |
=={{header|Raku}}== |