Piprimes: Difference between revisions
Content added Content deleted
Catskill549 (talk | contribs) |
SqrtNegInf (talk | contribs) (Added Perl) |
||
Line 274: | Line 274: | ||
<lang parigp>n=0; p=0 |
<lang parigp>n=0; p=0 |
||
while(n<22, print(n); if(isprime(p),n=n+1);p=p+1)</lang> |
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}}== |
=={{header|Phix}}== |