Mersenne primes: Difference between revisions
Content added Content deleted
m (→{{header|zkl}}: tweak o rama) |
m (→{{header|REXX}}: changed a glyph in a comment.) |
||
Line 645: | Line 645: | ||
if !.m then iterate /*M must be either one or seven.*/ |
if !.m then iterate /*M must be either one or seven.*/ |
||
parse var q '' -1 _; if _==5 then iterate /*last digit a five ?*/ |
parse var q '' -1 _; if _==5 then iterate /*last digit a five ?*/ |
||
if q// 3==0 then iterate /* |
if q// 3==0 then iterate /* ÷ by three ?*/ |
||
if q// 7==0 then iterate /* " " seven ?*/ |
if q// 7==0 then iterate /* " " seven ?*/ |
||
if q//11==0 then iterate /* " " eleven ?*/ |
if q//11==0 then iterate /* " " eleven ?*/ |
||
Line 657: | Line 657: | ||
if sq==1 then return q /*Not a prime? Return a factor.*/ |
if sq==1 then return q /*Not a prime? Return a factor.*/ |
||
end /*k*/</lang> |
end /*k*/</lang> |
||
<br><br> |
<br><br> |
||
=={{header|Ring}}== |
=={{header|Ring}}== |