Quad-power prime seeds: Difference between revisions

m
m (→‎{{header|Raku}}: twiddling)
Line 30:
for 1..5 {
my $threshold = Int(1e6 * $_);
my $key = @qppqpps.first: * > $threshold, :k;
say "{$threshold.&cardinal.fmt: '%13s'} is the {ordinal-digit $key + 1}: {@qpps[$key].&comma}";
}</lang>
10,333

edits