Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
m (Corrected spelling mistake.) |
Not a robot (talk | contribs) (Add SETL) |
||
Line 2,175: | Line 2,175: | ||
1333333 163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 |
1333333 163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 |
||
</pre> |
</pre> |
||
=={{header|SETL}}== |
|||
<syntaxhighlight lang="setl">program minimum_multiple_of_m_where_digit_sum_equals_m; |
|||
loop for n in [1..70] do |
|||
putchar(lpad(str minmult n, 9)); |
|||
if n mod 10=0 then print; end if; |
|||
end loop; |
|||
op minmult(m); |
|||
n := 1; |
|||
(while digsum(n*m) /= m) n +:= 1; end; |
|||
return n; |
|||
end op; |
|||
op digsum(n); |
|||
return +/[[n mod 10, n div:=10](1) : until n=0]; |
|||
end op; |
|||
end program;</syntaxhighlight> |
|||
{{out}} |
|||
<pre> 1 1 1 1 1 1 1 1 1 19 |
|||
19 4 19 19 13 28 28 11 46 199 |
|||
19 109 73 37 199 73 37 271 172 1333 |
|||
289 559 1303 847 1657 833 1027 1576 1282 17497 |
|||
4339 2119 2323 10909 11111 12826 14617 14581 16102 199999 |
|||
17449 38269 56413 37037 1108909 142498 103507 154981 150661 1333333 |
|||
163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 12842857</pre> |
|||
=={{header|Sidef}}== |
=={{header|Sidef}}== |