Piprimes: Difference between revisions
actually, let's group all the BASICs together from the beginning
(add tinybasic) |
(actually, let's group all the BASICs together from the beginning) |
||
Line 51:
</pre>
=={{header|
<lang fermat>n:=0; p:=0▼
while n<22 do !n;!' ';p:=p+1;if Isprime(p)=1 then n:=n+1; fi; od</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|FreeBASIC}}===
<lang freebasic>#define UPTO 22
#include "isprime.bas"
Line 72 ⟶ 68:
{{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>
<lang tinybasic> LET N = 0▼
LET P = 0▼
10 IF N = 22 THEN END▼
PRINT N▼
LET P = P + 1▼
GOSUB 100▼
20 IF Z = 1 THEN LET N = N + 1▼
GOTO 10▼
100 REM PRIMALITY BY TRIAL DIVISION▼
LET Z = 1▼
LET I = 2▼
110 IF (P/I)*I = P THEN LET Z = 0▼
IF Z = 0 THEN RETURN▼
LET I = I + 1▼
IF I*I < P THEN GOTO 110▼
RETURN</lang>▼
=={{header|Fermat}}==
▲<lang fermat>n:=0; p:=0
▲while n<22 do !n;!' ';p:=p+1;if Isprime(p)=1 then n:=n+1; fi; od</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|PARI/GP}}==
Line 216 ⟶ 236:
done...
</pre>
▲=={{header|TinyBASIC}}==
▲<lang tinybasic> LET N = 0
▲ LET P = 0
▲ 10 IF N = 22 THEN END
▲ PRINT N
▲ LET P = P + 1
▲ GOSUB 100
▲ 20 IF Z = 1 THEN LET N = N + 1
▲ GOTO 10
▲100 REM PRIMALITY BY TRIAL DIVISION
▲ LET Z = 1
▲ LET I = 2
▲110 IF (P/I)*I = P THEN LET Z = 0
▲ IF Z = 0 THEN RETURN
▲ LET I = I + 1
▲ IF I*I < P THEN GOTO 110
▲ RETURN</lang>
=={{header|Wren}}==
| |||