Super-Poulet numbers: Difference between revisions
m
→{{header|Raku}}: overboard
Thundergnat (talk | contribs) m (→{{header|Raku}}: efficiency tweaks) |
Thundergnat (talk | contribs) m (→{{header|Raku}}: overboard) |
||
Line 27:
say "First 20 Super-Poulet numbers:\n" ~ @super-poulet[^20].gist;
for 1e6.Int, 1e7.Int -> $threshold {
say "\nIndex and value of first Super-Poulet greater than {$threshold.&cardinal}:";
my $index = @super-poulet.first: * > $threshold, :k;
say "{(1+$index).&ordinal-digit} Super-Poulet number == " ~ @super-poulet[$index].,
}</lang>
{{out}}
<pre>First 20 Super-Poulet numbers:
Line 36 ⟶ 37:
Index and value of first Super-Poulet greater than one million:
109th Super-Poulet number == 1,016,801
Index and value of first Super-Poulet greater than ten million:
317th Super-Poulet number == 10,031,653
</pre>
|