Quad-power prime seeds: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Raku}}: twiddling) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: typo) |
||
| Line 30: | Line 30: | ||
for 1..5 { |
for 1..5 { |
||
my $threshold = Int(1e6 * $_); |
my $threshold = Int(1e6 * $_); |
||
my $key = @ |
my $key = @qpps.first: * > $threshold, :k; |
||
say "{$threshold.&cardinal.fmt: '%13s'} is the {ordinal-digit $key + 1}: {@qpps[$key].&comma}"; |
say "{$threshold.&cardinal.fmt: '%13s'} is the {ordinal-digit $key + 1}: {@qpps[$key].&comma}"; |
||
}</lang> |
}</lang> |
||