Anonymous user
Proper divisors: Difference between revisions
m
→version 2: moved some statements.
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Further optimization) |
m (→version 2: moved some statements.) |
||
Line 3,654:
say right(n, max(20, w) ) 'has' center(#, 4) "proper divisors: " q
end /*n*/
m=0 /*M ≡ maximum number of Pdivs (so far).*/
do r=1 for range; q=
if #<m then iterate /*Less then max? Then ignore this #. */
@.#= @.# @. r;
end /*r*/ /* [↑] process 2nd range of integers.*/
say
say m ' is the highest number of proper divisors in range 1──►'range,
", and it's for: " subword(@.m, 3)
| |||