home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Media Share 9
/
MEDIASHARE_09.ISO
/
progmisc
/
euphor10.zip
/
SIEVE.BAS
< prev
next >
Wrap
BASIC Source File
|
1993-06-04
|
636b
|
38 lines
' PRIME SIEVE BENCHMARK
DEFINT A-Z
DEFDBL T
'Constants
CONST ITERATIONS = 100
CONST TRUE = -1
CONST FALSE = NOT TRUE
CONST SIZE = 8191
'Global Variables
DIM flags(SIZE)
t1 = TIMER
FOR iter = 1 TO ITERATIONS
count = 0
' turn flags on (non-zero)
FOR f = 1 TO SIZE
flags(f) = TRUE
NEXT f
FOR i = 1 TO SIZE
IF flags(i) THEN
prime = i + i + 1
'PRINT prime;
FOR k = i + prime TO SIZE STEP prime
flags(k) = FALSE
NEXT k
count = count + 1
END IF
NEXT i
NEXT iter
PRINT count;" primes"
PRINT ITERATIONS;" ITERATIONS IN ";TIMER - t1; " SECONDS"
END