Smarandache prime-digital sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 553: / Line 553: @@
 : spds_print ( n -- )
+  >r 0
   begin
-    over 0 >
+    r@ 0 >
   while
     next_prime_digit_number
-    dup is_prime? if dup . swap 1- swap then
+    dup is_prime? if dup . r> 1- >r then
   repeat
-drop cr ;
+  drop rdrop cr ;
 : spds_nth ( n -- n )
+  >r 0
   begin
-    over 0 >
+    r@ 0 >
   while
     next_prime_digit_number
-    dup is_prime? if swap 1- swap then
+    dup is_prime? if r> 1- >r then
   repeat
-  swap drop ;
+  rdrop ;
 ." First 25 SPDS primes:" cr
@@ Line 579: / Line 579: @@
 ." 1000th SPDS prime: "
-spds_nth . cr</lang>
+spds_nth . cr
+bye</lang>
 {{out}}