Minimum multiple of m where digital sum equals m: Difference between revisions
Minimum multiple of m where digital sum equals m (view source)
Revision as of 11:52, 25 January 2022
, 2 years agoJ
m (julia example) |
(J) |
||
Line 97:
19 109 73 37 199 73 37 271 172 1333
289 559 1303 847 1657 833 1027 1576 1282 17497</pre>
=={{header|J}}==
Implementation:
<lang J>
findfirst=: {{
($:@((+1+i.@+:)@#)@[`(+&{. I.)@.(1 e. ]) u) ,1
}}
A131382=: {{y&{{x = sumdigits x*y}} findfirst}}"0
sumdigits=: +/@|:@(10&#.inv)</lang>
Task example:
<lang J> A131382 1+i.4 10
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</lang>
|