Rosetta Code

Carmichael 3 strong pseudoprimes: Difference between revisions

Page Discussion

Carmichael 3 strong pseudoprimes (view source)

Revision as of 09:19, 13 November 2023

93 bytes removed ,  6 months ago
m
→‎{{header|RPL}}: tweaked the code
(added RPL)
m (→‎{{header|RPL}}: tweaked the code)
 
Line 3,289:
{{works with|HP|49}}
« { }
23 ROT '''FOR''' p1
2 p1 1 - '''FOR''' h3
'''IF'''1 h3 p1 <+ 1 - '''THENFOR''' d
1'''IF''' h3 p1 + p1 1 - * d MOD NOT p1 SQ NEG h3 MOD d h3 MOD == AND '''FORTHEN''' d
'''IF''' h3 p1 + p1 1 - * d MOD NOTh3 p1 SQ NEG h3 MOD+ d h3IQUOT MOD* ==1 AND+ '''THEN'''
p1 1 - h3 p1 + d IQUOT * 1 + '''CASE'''
DUP ISPRIME? NOT '''CASETHEN''' DROP '''END'''
p1 OVER * DUPh3 ISPRIME?IQUOT NOT1 '''THEN'''+ DROP '''END'''
DUP ISPRIME? NOT p1'''THEN''' OVER * h3 IQUOT 1 +DROP2 '''END'''
DUP2 * p1 DUP1 ISPRIME?- NOTMOD 1 ≠ '''THEN''' DROP2 '''END'''
DUP2 * p1 1UNROT -3 MOD→LIST 1 ≠ '''THEN''' DROP2→LIST '''END'''+
p1 UNROT 3 →LIST 1 →LIST +
'''END'''
'''END'''
'''NEXTEND'''
'''ENDNEXT'''
'''NEXT'''
p1 NEXTPRIME 1 - 'p1' STO
Aerobar
1,150

edits

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