Mersenne primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,100: / Line 1,100: @@
 ^ 31 - 1
 ^ 61 - 1</pre>
-=={{header|Pike}}==
-<lang Pike>int power = 1;
-while(power++) {
-    int candidate = 2->pow(power)-1;
-    if( candidate->probably_prime_p() )
-        write("2 ^ %d - 1\n", power);
-}</lang>
-Output:
-<pre>
-^ 2 - 1
-^ 3 - 1
-^ 5 - 1
-^ 7 - 1
-^ 13 - 1
-^ 17 - 1
-^ 19 - 1
-^ 31 - 1
-^ 61 - 1
-</pre>
 =={{header|PicoLisp}}==
@@ Line 1,178: / Line 1,158: @@
 ^ 521 - 1
 ^ 607 - 1
+</pre>
+=={{header|Pike}}==
+<lang Pike>int power = 1;
+while(power++) {
+    int candidate = 2->pow(power)-1;
+    if( candidate->probably_prime_p() )
+        write("2 ^ %d - 1\n", power);
+}</lang>
+Output:
+<pre>
+^ 2 - 1
+^ 3 - 1
+^ 5 - 1
+^ 7 - 1
+^ 13 - 1
+^ 17 - 1
+^ 19 - 1
+^ 31 - 1
+^ 61 - 1
 </pre>