Lucas-Lehmer test: Difference between revisions
m
→RPL HP-28 series: typo
Basicgames (talk | contribs) |
m (→RPL HP-28 series: typo) |
||
Line 3,430:
</pre>
===RPL HP-28 series===
Unlike RPL implemented on HP-50 series,
Let's build them all...
{{works with|Halcyon Calc|4.2.7}}
{| class="wikitable"
! RPL code
! Comment
|-
|
Line 3,450:
DROP2 1 FS?
≫ '''END END'''
≫
≪ → m
Line 3,461:
'''END'''
ROT ROT DROP2
≫ ≫
≪ 2 OVER ^ R→B 1 - → mp
≪ #4
3 ROT '''FOR''' n
#2 mp
'''IF''' DUP #2 < '''THEN''' mp + '''END''' #2 -
'''NEXT'''
#0 ==
≫ ≫
≪ { 2 } 3 32 '''FOR''' j
'''IF''' j R→B
'''THEN IF''' j <span style="color:blue">MNSP?</span> '''
'''NEXT'''
≫
|
return 1 if a is 2, 3 or 5 and 0 if a is 1
if 2 or 3 divides a
Line 3,492:
result = 1;
while (exp > 0) {
Line 3,503:
s0 = 4
loop p-2 times
| |||