Piprimes: Difference between revisions
add FreeBASIC
(add FreeBASIC) |
|||
Line 50:
20 20 21 21 21 21 21 21
</pre>
=={{header|FreeBASIC}}==
<lang freebasic>#define UPTO 22
#include "isprime.bas"
dim as integer running = 0, curr=0
do
curr += 1
if isprime(curr) then running += 1
if running = UPTO then exit do
print running;" ";
loop
print : end
</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}}==
| |||