Smarandache prime-digital sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 552: / Line 552: @@
 / recurse 10 * 2 + ;
-: spds_print ( n -- )
+: spds_next ( n -- n )
-  >r 0
   begin
-    r@ 0 >
-  while
     next_prime_digit_number
-    dup is_prime? if dup . r> 1- >r then
+    dup is_prime?
-  repeat
+  until ;
-  drop rdrop cr ;
+: spds_print ( n -- )
+swap 0 do
+    spds_next
+    dup is_prime? if dup . then
+  loop
+  drop cr ;
 : spds_nth ( n -- n )
+swap 0 do spds_next loop ;
-  >r 0
-  begin
-    r@ 0 >
-  while
-    next_prime_digit_number
-    dup is_prime? if r> 1- >r then
-  repeat
-  rdrop ;
 ." First 25 SPDS primes:" cr