38 lines
732 B
Plaintext
38 lines
732 B
Plaintext
|
10 DEFINT A-Z
|
|||
|
|
20 DIM FLAGS(8191)
|
|||
|
|
30 PRINT "Only 1 Iteration"
|
|||
|
|
40 COUNT=0
|
|||
|
|
50 FOR I=0 TO 8190
|
|||
|
|
60 FLAGS(I)=1
|
|||
|
|
70 NEXT
|
|||
|
|
80 FOR I=0 TO 8190
|
|||
|
|
90 IF FLAGS(I) =0 THEN GOTO 170
|
|||
|
|
100 PRIME=I+I+3
|
|||
|
|
110 K=I+PRIME
|
|||
|
|
120 WHILE K <= 8190
|
|||
|
|
130 FLAGS(K)=0
|
|||
|
|
140 K=K+PRIME
|
|||
|
|
150 WEND
|
|||
|
|
160 COUNT=COUNT+1
|
|||
|
|
170 NEXT
|
|||
|
|
180 PRINT COUNT;" primes"
|
|||
|
|
|
|||
|
|
|
|||
|
|
INTEGER: Count,Prime,K,I
|
|||
|
|
INTEGER ARRAY(8191): Flags
|
|||
|
|
CONSTANT: Siz=8190
|
|||
|
|
10 PRINT "Only 1 Iteration"
|
|||
|
|
20 CLEAR(Flags,Count)
|
|||
|
|
30 FOR I=0 TO Siz
|
|||
|
|
40 DO IF NOT(Flags(I))
|
|||
|
|
50 Prime=I+I+3
|
|||
|
|
60 K=I+Prime
|
|||
|
|
70 WHILE K <= Siz DO
|
|||
|
|
80 Flags(K)=-1
|
|||
|
|
90 K=K+Prime
|
|||
|
|
100 REPEAT
|
|||
|
|
110 Count=Count+1
|
|||
|
|
120 END DO
|
|||
|
|
130 NEXT
|
|||
|
|
140 PRINT Count;" primes"
|
|||
|
|
|