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

Content added Content deleted

Inline

@@ Line 582: / Line 582: @@
 =={{header|EasyLang}}==
-{{trans|AWK}}
 <syntaxhighlight>
-fastfunc digsum n .
+fastfunc f n .
-   while n > 0
+   m = 1
+   repeat
-      sum += n mod 10
-      n = n div 10
+      h = m * n
+      sum = 0
+      while h > 0
+         sum += h mod 10
+         h = h div 10
+      .
+      until sum = n
+      m += 1
    .
-   return sum
+   return m
 .
 for n = 1 to 70
-   m = 1
+   write f n & " "
-   while digsum (m * n) <> n
-      m += 1
-   .
-   write m & " "
 .
 </syntaxhighlight>
 =={{header|F_Sharp|F#}}==