Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (syntax highlighting fixup automation) |
Alextretyak (talk | contribs) (Added 11l) |
||
Line 21: | Line 21: | ||
=={{header|11l}}== |
|||
{{trans|C++}} |
|||
<syntaxhighlight lang="11l"> |
|||
F digit_sum(=n) |
|||
V sum = 0 |
|||
L n > 0 |
|||
sum += n % 10 |
|||
n I/= 10 |
|||
R sum |
|||
L(n) 1..70 |
|||
L(m) 1.. |
|||
I digit_sum(m * n) == n |
|||
print(‘#8’.format(m), end' I n % 10 == 0 {"\n"} E ‘ ’) |
|||
L.break |
|||
</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|ALGOL 68}}== |
=={{header|ALGOL 68}}== |
||
Line 58: | Line 87: | ||
163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 12842857 |
163918 322579 315873 937342 1076923 1030303 880597 1469116 1157971 12842857 |
||
</pre> |
</pre> |
||
=={{header|APL}}== |
=={{header|APL}}== |