Inconsummate numbers in base 10: Difference between revisions

→‎{{header|Python}}: correct the max search point
(Added Perl)
(→‎{{header|Python}}: correct the max search point)
Line 566:
minimum_digitsums = [(10**i, int((10**i - 1) / (9 * i)))
for i in range(1, 15)]
limit = 20 * min(p[0] for p in minimum_digitsums if p[1] > max_wanted)
arr = [1] + [0] * (limit - 1)
 
Line 600:
Ten-thousanth inconsummate number: 59853
 
Hundred-thousanth inconsummate number: 375410 536081
</pre>
 
4,102

edits