Quad-power prime seeds: Difference between revisions
m
→{{header|Raku}}: twiddling
Thundergnat (talk | contribs) (New draft task and Raku example) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: twiddling) |
||
Line 22:
<lang perl6>use Lingua::EN::Numbers;
my @
say "First fifty quad-power prime seeds:\n" ~ @
say "\nFirst quad-power prime seed greater than:";
Line 31:
my $threshold = Int(1e6 * $_);
my $key = @qpp.first: * > $threshold, :k;
say "{$threshold.&cardinal.fmt: '%13s'} is the {ordinal-digit $key + 1}: {@
}</lang>
{{out}}
| |||