Truncatable primes: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,209: / Line 1,209: @@
     drop false exit
   then
-  dup 10
+  dup >r
   begin
-    dup 3 pick <
+dup >
   while
-pick over mod
+dup mod
-    dup 3 pick = if
+    dup r> = if
-drop 2drop false exit
+drop drop false exit
     then
     dup prime? invert if
-drop 2drop false exit
+drop drop false exit
     then
-    rot drop swap
+    >r
 *
   repeat
-drop drop true ;
+drop rdrop true ;
 : right_truncatable_prime? ( n -- flag )