Powerful numbers: Difference between revisions
m
→{{header|Perl 6}}: fix typo in orders-of-magnitude display
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Verbiage tweaks) |
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: fix typo in orders-of-magnitude display) |
||
Line 300:
for 2..10 -> \k {
my @powerfuls = powerfuls(10**($top+k), 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 }
}</lang>
Line 316:
Counts in each order of magnitude:
2-powerful numbers <= 10ⁿ (where n == 0 through
3-powerful numbers <= 10ⁿ (where n == 0 through
4-powerful numbers <= 10ⁿ (where n == 0 through
5-powerful numbers <= 10ⁿ (where n == 0 through
6-powerful numbers <= 10ⁿ (where n == 0 through
7-powerful numbers <= 10ⁿ (where n == 0 through
8-powerful numbers <= 10ⁿ (where n == 0 through
9-powerful numbers <= 10ⁿ (where n == 0 through
10-powerful numbers <= 10ⁿ (where n == 0 through
=={{header|Sidef}}==
| |||