Lucas-Lehmer test: Difference between revisions

Content deleted Content added
PatGarrett (talk | contribs)
Add 360 Assembly section
PatGarrett (talk | contribs)
Line 7:
=={{header|360 Assembly}}==
For maximum compatibility, this program uses only the basic instruction set.
<lang 360asm>* Lucas-Lehmer test for Rosetta Code - PG
* Lucas-Lehmer test for Rosetta Code - PG
LUCASLEH CSECT
USING LUCASLEH,R12
Line 79 ⟶ 78:
LTORG
YREGS
END LUCASLEH</lang>
</lang>
{{out}}
<pre>M002
M002
M003
M005
Line 90 ⟶ 87:
M017
M019
M031</pre>
</pre>
 
 
=={{header|Ada}}==