10001th prime: Difference between revisions

Content added Content deleted

Inline

@@ Line 551: / Line 551: @@
 =={{header|QB64}}==
-<lang QB64>max=10001: n=0: s=1 ' PRIMES.bas russian DANILIN
+<lang QB64>max=10001: n=1: p=0: t=Timer ' PRIMES.bas russian DANILIN
-While n <= max ' 10001 104743 2.5 seconds
+While n <= max ' 10001 104743 0.35 seconds
-    f=0
+    f=0: j=2
-    For j=2 To s^0.5
+    While f < 1
-        If s Mod j = 0 Then f=1
+        If j >= p ^ 0.5 Then f=2
+        If p Mod j = 0 Then f=1
-    Next
-    If f=0 Then n=n+1
+        j=j+1
-    s=s+1
+    Wend
+    If f <> 1 Then n=n+1: ' Print n, p
+    p=p+1
 Wend
-Print n-1, s-1</lang>
+Print n-1, p-1, Timer-t</lang>
 {{out}}
-<pre>10001 104743 2.5 seconds</pre>
+<pre>10001 104743 0.35 seconds</pre>
 =={{header|QB64}}==