Gaussian primes: Difference between revisions
J
Thundergnat (talk | contribs) m (Clarify) |
(J) |
||
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}}==
| |||