Minimum multiple of m where digital sum equals m: Difference between revisions
Content added Content deleted
m (julia example) |
(J) |
||
| Line 97: | Line 97: | ||
19 109 73 37 199 73 37 271 172 1333 |
19 109 73 37 199 73 37 271 172 1333 |
||
289 559 1303 847 1657 833 1027 1576 1282 17497</pre> |
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> |
|||