Self-describing numbers: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,402: / Line 2,402: @@
 <lang Quackery>  [ tuck over peek
-+ unrot poke ]         is item++    ( n [ --> [ )
++ unrot poke ]        is item++    ( n [ --> [ )
   [ [] 10 times [ 0 join ]
@@ Line 2,408: / Line 2,408: @@
     [ 10 /mod rot item++
       swap dup 0 = until ]
-    drop ]                  is digitcount (  n --> [ )
+    drop ]                 is digitcount (  n --> [ )
-  [ 0 swap witheach + ]     is sum       (   [ --> n )
+  [ 0 swap witheach + ]    is sum       (   [ --> n )
   [ 0 swap
     witheach
-      [ swap 10 * + ] ]     is digits->n (   [ --> n )
+      [ swap 10 * + ] ]    is digits->n (   [ --> n )
   [ dup digitcount