06-09-2003, 07:24 AM
Code:
CLS
WIDTH , 50
p = 3
t = TIMER
DO
FOR i = 2 TO SQR(p)
IF p / i = INT(p / i) THEN np = 1: EXIT FOR
NEXT i
IF np = 1 THEN
np = 0
ELSE
IF c = 1 THEN c = 0: PRINT USING "Time: ####.##"; TIMER - t: PRINT : LOCATE 1, 1
PRINT p,
c = c + 1
pn = pn + 1
END IF
p = p + 2
LOOP UNTIL LEN(INKEY$) = 1
PRINT
PRINT
PRINT pn; " primes found"
PRINT USING "In ####.## sec"; TIMER - t
Antoni Gual: I was testing both of ours on primes up to 100000
Antoni Gual: 1 sec, found 9593 primes
Mine: 8 sec, found 9591 primes
one of ours is messed up. and im gussing it's mine.