Minimum multiple of m where digital sum equals m: Difference between revisions

Content deleted Content added

Inline

@@ Line 2,334: / Line 2,334: @@
     drop ]            is digitsum (   n --> n )
-  [] 40 times
+  [] 1
+times
-  [ i^ 1+ 1 from
+  [ 1 from
-     [ dup dup index *
-       digitsum = if
+    [ dup dup index *
-         [ index swap end ] ]
+      digitsum = if
+        [ index swap end ] ]
-   drop join ]
++ dip join ]
-   echo</syntaxhighlight>
+  drop echo</syntaxhighlight>
 {{out}}