Factors of a Mersenne number: Difference between revisions
Content deleted Content added
m →{{header|Perl}}: wrong output |
Updated D code |
||
Line 364:
=={{header|D}}==
<lang d>import std.stdio, std.math, std.traits;
ulong mersenneFactor(in ulong p) pure nothrow {
}
▲ return 0;
static long
long
result = (result * b) % m;
b = (b ^^ 2) % m;
}
}
immutable ulong limit = cast(ulong)sqrt(2 ^^ p - 1);
if (
}
return
}
Line 402 ⟶ 400:
writefln("Factor of M929: %s", mersenneFactor(929));
}</lang>
Output:
<pre>Factor of M929: 13007</pre>
=={{header|Forth}}==
|