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 00:18, 29 January 2022
, 2 years agoAdd MAD
Not a robot (talk | contribs) (Add APL) |
Not a robot (talk | contribs) (Add MAD) |
||
Line 283:
937342 1076923 1030303 880597 1469116 1157971 12842857
</pre>
=={{header|MAD}}==
<lang MAD> NORMAL MODE IS INTEGER
VECTOR VALUES FMT = $2HA(,I2,4H) = ,I8*$
THROUGH NUMBER, FOR N = 1, 1, N.G.70
MULT THROUGH MULT, FOR M = 1, 1, N.E.DSUM.(M*N)
NUMBER PRINT FORMAT FMT, N, M
INTERNAL FUNCTION(X)
ENTRY TO DSUM.
SUM = 0
V = X
DIGIT WHENEVER V.E.0, FUNCTION RETURN SUM
W = V/10
SUM = SUM + V - W*10
V = W
TRANSFER TO DIGIT
END OF FUNCTION
END OF PROGRAM</lang>
{{out}}
<pre style='height:50ex;'>A( 1) = 1
A( 2) = 1
A( 3) = 1
A( 4) = 1
A( 5) = 1
A( 6) = 1
A( 7) = 1
A( 8) = 1
A( 9) = 1
A(10) = 19
A(11) = 19
A(12) = 4
A(13) = 19
A(14) = 19
A(15) = 13
A(16) = 28
A(17) = 28
A(18) = 11
A(19) = 46
A(20) = 199
A(21) = 19
A(22) = 109
A(23) = 73
A(24) = 37
A(25) = 199
A(26) = 73
A(27) = 37
A(28) = 271
A(29) = 172
A(30) = 1333
A(31) = 289
A(32) = 559
A(33) = 1303
A(34) = 847
A(35) = 1657
A(36) = 833
A(37) = 1027
A(38) = 1576
A(39) = 1282
A(40) = 17497
A(41) = 4339
A(42) = 2119
A(43) = 2323
A(44) = 10909
A(45) = 11111
A(46) = 12826
A(47) = 14617
A(48) = 14581
A(49) = 16102
A(50) = 199999
A(51) = 17449
A(52) = 38269
A(53) = 56413
A(54) = 37037
A(55) = 1108909
A(56) = 142498
A(57) = 103507
A(58) = 154981
A(59) = 150661
A(60) = 1333333
A(61) = 163918
A(62) = 322579
A(63) = 315873
A(64) = 937342
A(65) = 1076923
A(66) = 1030303
A(67) = 880597
A(68) = 1469116
A(69) = 1157971
A(70) = 12842857</pre>
=={{header|Perl}}==
| |||