Lucas-Lehmer test: Difference between revisions
Content deleted Content added
m →{{header|MATLAB}}: {{Out}} |
PatGarrett (talk | contribs) →{{header|360 Assembly}}: correction |
||
Line 37:
SR R9,R2 IEXP-2 limit
LOOPI BXH R5,R8,ENDLOOPI do i=1 to iexp-2
* ---- compute s=(s*s-2) MOD n
SR R14,R14 R14=0
LR R15,R3 R15=S
MR R14,R3 R{14-15}=S*S
SR R15,R2
DR R14,R10
LR R3,R14 R14=MOD
B LOOPI
Line 64:
BR R14
* ---- DATA
IEXPMAX DC H'
I DS H
IEXP DS H
Line 73:
C DS CL16 character
WTOMSG CNOP 0,4
DC H'80'
WTOBUF DC 80C' '
LTORG
Line 84 ⟶ 83:
M005
M007
M013</pre>
=={{header|Ada}}==
|