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

m
→‎{{header|Quackery}}: simplified code
(Added Quackery.)
m (→‎{{header|Quackery}}: simplified code)
Line 2,334:
drop ] is digitsum ( n --> n )
 
[] 401 times
40 times
[ i^ 1+ 1 from
[ dup dup index *
[ dup dup digitsumindex = if*
digitsum = [ index swap end ] ]if
[ dup dup [ index *swap end ] ]
1+ dropdip join ]
drop echo</syntaxhighlight>
 
{{out}}
 
1,496

edits