10001th prime: Difference between revisions
m
add REXX
(→{{header|jq}}: no magic here) |
Walterpachl (talk | contribs) m (add REXX) |
||
Line 300:
{{out}}
<pre>104743</pre>
=={{header|REXX}}==
<lang rexx>/* REXX */
Parse Version v
Say v
Call Time 'R'
z=1
p.0=3
p.1=2
p.2=3
p.3=5
Do n=5 By 2 Until z=10001
If right(n,1)=5 Then Iterate
Do i=2 To p.0 Until b**2>n
b=p.i
If n//b=0 Then Leave
End
If b**2>n Then Do
z=p.0+1
p.z=n
p.0=z
End
End
Say z n time('E')</lang>
{{out}}
<pre>H:\>rexx prime10001
REXX-ooRexx_5.0.0(MT)_64-bit 6.05 8 Sep 2020
10001 104743 0.219000
H:\>regina prime10001
REXX-Regina_3.9.4(MT) 5.00 25 Oct 2021
10001 104743 .615000</pre>
=={{header|Ring}}==
<lang ring>
| |||