10001th prime: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (→{{header|Raku}}: Add a Raku example) |
(add c) |
||
Line 4: | Line 4: | ||
<br>Find and show on this page 10001th prime |
<br>Find and show on this page 10001th prime |
||
<br><br> |
<br><br> |
||
=={{header|C}}== |
|||
<lang c>#include<stdio.h> |
|||
#include<stdlib.h> |
|||
int isprime( int p ) { |
|||
int i; |
|||
if(p==2) return 1; |
|||
if(!(p%2)) return 0; |
|||
for(i=3; i*i<=p; i+=2) { |
|||
if(!(p%i)) return 0; |
|||
} |
|||
return 1; |
|||
} |
|||
int prime( int n ) { |
|||
int p, pn=1; |
|||
if(n==1) return 2; |
|||
for(p=3;pn<n;p+=2) { |
|||
if(isprime(p)) pn++; |
|||
} |
|||
return p-2; |
|||
} |
|||
int main(void) { |
|||
printf( "%d\n", prime(10001) ); |
|||
return 0; |
|||
}</lang> |
|||
{{out}}<pre>104743</pre> |
|||
=={{header|Fermat}}== |
=={{header|Fermat}}== |
Revision as of 19:33, 16 November 2021
10001th prime is a draft programming task. It is not yet considered ready to be promoted as a complete task, for reasons that should be found in its talk page.
- Task
Find and show on this page 10001th prime
C
<lang c>#include<stdio.h>
- include<stdlib.h>
int isprime( int p ) {
int i; if(p==2) return 1; if(!(p%2)) return 0; for(i=3; i*i<=p; i+=2) { if(!(p%i)) return 0; } return 1;
}
int prime( int n ) {
int p, pn=1; if(n==1) return 2; for(p=3;pn<n;p+=2) { if(isprime(p)) pn++; } return p-2;
}
int main(void) {
printf( "%d\n", prime(10001) ); return 0;
}</lang>
- Output:
104743
Fermat
<lang fermat> Prime(10001); </lang>
- Output:
104743
FreeBASIC
<lang freebasic>
- include "isprime.bas"
function prime( n as uinteger ) as ulongint
if n=1 then return 2 dim as integer p=3, pn=1 while pn<n if isprime(p) then pn + = 1 p += 2 wend return p-2
end function
print prime(10001) </lang>
- Output:
104743
J
<lang j>p:10000 NB. the index starts at 0; p:0 = 2</lang>
- Output:
104743
PARI/GP
<lang parigp>prime(10001)</lang>
- Output:
%1 = 104743
Raku
<lang perl6>say (^∞).grep( &is-prime )[10000]</lang>
- Output:
104743
Ring
<lang ring> load "stdlib.ring" see "working..." + nl num = 0 pr = 0 limit = 10001
while true
num++ if isprime(num) pr++ ok if pr = limit exit ok
end
see "" + num + nl see "done..." + nl </lang>
- Output:
working... The 10001th prime is: 104743 done...