Curzon numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 479: / Line 479: @@
 <lang Quackery>  [ number$
     space 4 of swap join
-    -5 split nip echo$ ]    is rjust  (   n -->   )
+    -5 split nip echo$ ]    is rjust   (   n -->   )
    [ 5 times
@@ Line 485: / Line 485: @@
            [ behead rjust ]
          cr ]
-    drop ]                  is dax    (   [ -->   )
+    drop ]                  is display (   [ -->   )
+  [ temp take
+     over join
+     temp put ]
   [ 2dup ** 1+
-    unrot * 1+ mod 0 = ]    is curzon ( n n --> b )
+    unrot * 1+ mod 0 = ]    is curzon  ( n n --> b )
 times
@@ Line 505: / Line 509: @@
 drop
       temp take
-split swap dax
+split swap display
       say "  ... "
-      -1 peek echo cr cr ]</lang>
+      -1 peek echo cr cr ]
+</lang>
 {{out}}