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

=={{header|RPL}}==

≪ 0 SWAP '''WHILE''' DUP '''REPEAT'''

10 MOD LAST / FLOOR SWAP ROT + SWAP

'''END''' DROP

≫ ‘'''∑DIG'''’ STO

≪ 0 '''DO''' 1 + DUP2 * '''UNTIL ∑DIG''' 3 PICK == '''END''' SWAP DROP

≫ ‘'''A131382'''’ STO

≪ { } 1 40 '''FOR''' j j '''A131382''' + '''NEXT''' ≫ EVAL

{{out}}

<pre>

1: { 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 }

</pre>

Runs in 98 minutes on a HP-28S.