Powerful numbers: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Perl 6}}: slightly off in the nth root calculation) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: remove some superstitious parenthesis, do prefix rather than postfix increment) |
||
Line 363: | Line 363: | ||
sub p (\m, \r) { |
sub p (\m, \r) { |
||
if r < k { |
if r < k { |
||
enumerate ?? @powerful.push(m) !! |
enumerate ?? @powerful.push(m) !! ++@powerful[m - 1 ?? (m - 1).chars !! 0]; |
||
return |
return |
||
} |
} |