10001th prime: Difference between revisions
Added Chipmunk Basic and True BASIC
(Added Dart) |
(Added Chipmunk Basic and True BASIC) |
||
Line 126:
print prime(10001)
end</syntaxhighlight>
==={{header|Chipmunk Basic}}===
{{works with|Chipmunk Basic|3.6.4}}
The [[#GW-BASIC|GW-BASIC]] solution works without any changes.
==={{header|FreeBASIC}}===
Line 247 ⟶ 251:
{{out}}
<pre>10001 104743 0.11 seconds</pre>
==={{header|True BASIC}}===
====Trial Division Method====
{{trans|QB64}}
<syntaxhighlight lang="qbasic">LET max = 10001
LET n = 1
LET p = 0
DO WHILE n <= max
LET f = 0
LET j = 2
DO WHILE f < 1
IF j >= p^0.5 THEN LET f = 2
IF REMAINDER(p, j) = 0 THEN LET f = 1
LET j = j+1
LOOP
IF f <> 1 THEN LET n = n+1
LET p = p+1
LOOP
PRINT p-1
END</syntaxhighlight>
{{out}}
<pre>104743</pre>
==={{header|Yabasic}}===
| |||