Curzon numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 489: / Line 489: @@
   [ temp take
      over join
-     temp put ]
+     temp put ]             is dax     (   [ -->   )
   [ 2dup ** 1+
@@ Line 500: / Line 500: @@
       [] temp put
-      [ 2dup curzon if
+      [ 2dup curzon if dax
-          [ temp take
-            over join
-            temp put ]
         temp share
         size 1000 < while