Minimum primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 550: / Line 550: @@
 pack transpose
   [] swap witheach
-    [ behead
+    [ unpack max max 1 -
-      swap witheach max
+      [ 1+ dup isprime until ]
-      [ dup isprime not while
-+ again ]
       join ]
-  echo</syntaxhighlight>
+  echo
+</syntaxhighlight>
 {{out}}