Powerful numbers: Difference between revisions
Content added Content deleted
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: | Line 299: | ||
my $top = 10; |
my $top = 10; |
||
for 2..10 -> \k { |
for 2..10 -> \k { |
||
my @powerfuls = powerfuls(10**($top+k), k); |
my @powerfuls = powerfuls(10**($top + k - 1), k); |
||
printf "%2s-powerful numbers <= 10ⁿ (where n == 0 through %d): ", k, $top+k-1; |
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 } |
say join ", ", (0 ..^ ($top+k)).hyper(:2batch).map: -> \j { +@powerfuls.race.grep: * <= 10**j } |
||