Powerful numbers: Difference between revisions

m
→‎{{header|Perl 6}}: remove some superstitious parenthesis, do prefix rather than postfix increment
(→‎{{header|Perl 6}}: slightly off in the nth root calculation)
m (→‎{{header|Perl 6}}: remove some superstitious parenthesis, do prefix rather than postfix increment)
Line 363:
sub p (\m, \r) {
if r < k {
enumerate ?? @powerful.push(m) !! (++@powerful[m - 1 ?? (m - 1).chars !! 0]++);
return
}
10,333

edits