Factors of a Mersenne number: Difference between revisions
m
→{{header|Arturo}}
Drkameleon (talk | contribs) (Added Arturo implementation) |
Drkameleon (talk | contribs) |
||
Line 401:
<lang rebol>mersenneFactors: function [q][
if not? prime? q ->
r: new q
while -> r > 0
Line 418:
else -> break
]
print ["2 ^" q "- 1 = 0 ( mod" d ")"]
]
{{out}}
| |||