Piprimes: Difference between revisions
Added Perl
Catskill549 (talk | contribs) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 274:
<lang parigp>n=0; p=0
while(n<22, print(n); if(isprime(p),n=n+1);p=p+1)</lang>
=={{header|Perl}}==
{{libheader|ntheory}}
<lang perl>use strict;
use warnings;
use feature 'state';
use ntheory 'is_prime';
my @pi = map { state $pi = 0; $pi += is_prime $_ ? 1 : 0 } 1..1e4;
do { print shift(@pi) . ' ' } until $pi[0] >= 22;</lang>
{{out}}
<pre>0 1 2 2 3 3 4 4 4 4 5 5 6 6 6 6 7 7 8 8 8 8 9 9 9 9 9 9 10 10 11 11 11 11 11 11 12 12 12 12 13 13 14 14 14 14 15 15 15 15 15 15 16 16 16 16 16 16 17 17 18 18 18 18 18 18 19 19 19 19 20 20 21 21 21 21 21 21</pre>
=={{header|Phix}}==
| |||