Twin primes: Difference between revisions
→{{header|Raku}}: Add a Raku example - though I
(→{{header|ALGOL 68}}: typo) |
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example - though I) |
||
Line 127:
> 35 twin prime pairs.
</pre>
=={{header|Raku}}==
{{works with|Rakudo|2020.07}}
<lang perl6>use Lingua::EN::Numbers;
use Math::Primesieve;
my $p = Math::Primesieve.new;
printf "Twin prime pairs less than %14s: %s\n", comma(10**$_), comma $p.count(10**$_, :twins) for 1 .. 10;</lang>
{{out}}
<pre>Twin prime pairs less than 10: 2
Twin prime pairs less than 100: 8
Twin prime pairs less than 1,000: 35
Twin prime pairs less than 10,000: 205
Twin prime pairs less than 100,000: 1,224
Twin prime pairs less than 1,000,000: 8,169
Twin prime pairs less than 10,000,000: 58,980
Twin prime pairs less than 100,000,000: 440,312
Twin prime pairs less than 1,000,000,000: 3,424,506
Twin prime pairs less than 10,000,000,000: 27,412,679</pre>
=={{header|REXX}}==
| |||