Piprimes: Difference between revisions
Content added Content deleted
(add FreeBASIC) |
|||
Line 50: | Line 50: | ||
20 20 21 21 21 21 21 21 |
20 20 21 21 21 21 21 21 |
||
</pre> |
</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}}== |
=={{header|Phix}}== |