Powerful numbers: Difference between revisions
m
→{{header|Perl 6}}: Don't generate unnecessary excess powerfuls
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix typo in orders-of-magnitude display) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Don't generate unnecessary excess powerfuls) |
||
Line 299:
my $top = 10;
for 2..10 -> \k {
my @powerfuls = powerfuls(10**($top + k - 1), k);
printf "%2s-powerful numbers <= 10ⁿ (where n == 0 through %d): ", k, $top+k-1;
say join ", ", (0 ..^ ($top+k)).hyper(:2batch).map: -> \j { +@powerfuls.race.grep: * <= 10**j }
| |||