Gaussian primes: Difference between revisions
Content deleted Content added
Added FreeBASIC |
added RPL |
||
Line 1,278: | Line 1,278: | ||
Off-site SVG image: [https://raw.githubusercontent.com/thundergnat/rc/master/img/gaussian-primes-raku.svg gaussian-primes-raku.svg] |
Off-site SVG image: [https://raw.githubusercontent.com/thundergnat/rc/master/img/gaussian-primes-raku.svg gaussian-primes-raku.svg] |
||
=={{header|RPL}}== |
|||
« → radius |
|||
« { } |
|||
1 radius '''FOR''' a |
|||
0 a '''FOR''' b |
|||
'''IF''' a SQ b SQ + radius SQ ≤ '''THEN''' |
|||
{ } |
|||
'''IF''' b '''THEN''' |
|||
'''IF''' a SQ b SQ + ISPRIME? '''THEN''' |
|||
a b R→C DUP CONJ OVER NEG DUP CONJ 4 →LIST + |
|||
'''END''' |
|||
'''ELSE''' |
|||
'''IF''' a ISPRIME? a 4 MOD 3 == AND '''THEN''' |
|||
a DUP NEG 2 →LIST + |
|||
'''END''' |
|||
'''END''' |
|||
'''IF''' DUP SIZE '''THEN ''' |
|||
'''IF''' a b ≠ '''THEN''' DUP (0,1) * + '''END''' |
|||
+ |
|||
'''ELSE''' DROP '''END''' |
|||
'''END''' |
|||
'''NEXT NEXT ''' |
|||
» » '<span style="color:blue">GPRIMES</span>' STO |
|||
« 10 <span style="color:blue">GPRIMES</span> |
|||
(-50 -50) PMIN (50 50) PMAX ERASE |
|||
50 <span style="color:blue">GPRIMES</span> 1 « '''IF''' DUP IM NOT '''THEN''' 0 R→C '''END''' PIXON » DOLIST |
|||
{ } PVIEW |
|||
» '<span style="color:blue">TASK</span>' STO |
|||
[[File:Gaussian primes.png|thumb|alt=Gaussian primes within radius 50|HP-48G emulator screenshot]] |
|||
{{out}} |
|||
<pre> |
|||
1: { (1.,1.) (1.,-1.) (-1.,-1.) (-1.,1.) (2.,1.) (2.,-1.) (-2.,-1.) (-2.,1.) (-1.,2.) (1.,2.) (1.,-2.) (-1.,-2.) 3 -3 (0.,3.) (0.,-3.) (3.,2.) (3.,-2.) (-3.,-2.) (-3.,2.) (-2.,3.) (2.,3.) (2.,-3.) (-2.,-3.) (4.,1.) (4.,-1.) (-4.,-1.) (-4.,1.) (-1.,4.) (1.,4.) (1.,-4.) (-1.,-4.) (5.,2.) (5.,-2.) (-5.,-2.) (-5.,2.) (-2.,5.) (2.,5.) (2.,-5.) (-2.,-5.) (5.,4.) (5.,-4.) (-5.,-4.) (-5.,4.) (-4.,5.) (4.,5.) (4.,-5.) (-4.,-5.) (6.,1.) (6.,-1.) (-6.,-1.) (-6.,1.) (-1.,6.) (1.,6.) (1.,-6.) (-1.,-6.) (6.,5.) (6.,-5.) (-6.,-5.) (-6.,5.) (-5.,6.) (5.,6.) (5.,-6.) (-5.,-6.) 7 -7 (0.,7.) (0.,-7.) (7.,2.) (7.,-2.) (-7.,-2.) (-7.,2.) (-2.,7.) (2.,7.) (2.,-7.) (-2.,-7.) (8.,3.) (8.,-3.) (-8.,-3.) (-8.,3.) (-3.,8.) (3.,8.) (3.,-8.) (-3.,-8.) (8.,5.) (8.,-5.) (-8.,-5.) (-8.,5.) (-5.,8.) (5.,8.) (5.,-8.) (-5.,-8.) (9.,4.) (9.,-4.) (-9.,-4.) (-9.,4.) (-4.,9.) (4.,9.) (4.,-9.) (-4.,-9.) } |
|||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |