home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l075 / 1.ddi / SIEVE.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-05  |  1.2 KB  |  44 lines
  1. '┌───────────────────────────────────────────────────────────────────────────┐
  2. '│   This  program demonstrates the SIEVE algorithm of determining prime     │
  3. '│   numbers. The algorithm is often used in benchmarking the speed of       │
  4. '│   compilers.                                                              │
  5. '│                                         │
  6. '│    In order to run this program do the following:                 │
  7. '│      1. Load Turbo Basic by typing TB at the DOS prompt.              │
  8. '│      2. Load the file SIEVE.BAS from the Load option of the File         │
  9. '│         pulldown menu.                             │
  10. '│      3. Select Run from the Main menu                     │
  11. '└───────────────────────────────────────────────────────────────────────────┘
  12.  
  13. ' The Classic Sieve of Eratosthenes Benchmark
  14. '
  15. DEFINT A-Z
  16. DIM Flags(8190)
  17.  
  18. CLS
  19. PRINT "Sieve - 25 iterations"
  20. X# = TIMER
  21.  
  22. FOR Iter = 1 TO 25
  23.   Count = 0
  24.   FOR I = 0 TO 8190
  25.     Flags(I) = 1
  26.   NEXT I
  27.   FOR I = 0 TO 8190
  28.     IF Flags(I) THEN
  29.       Prime = I + I + 3
  30.       K = I + Prime
  31.       WHILE K <= 8190
  32.         Flags(K) = 0
  33.         K = K + Prime
  34.       WEND
  35.       Count = Count + 1
  36.     END IF
  37.   NEXT I
  38. NEXT Iter
  39.  
  40. XX# = TIMER
  41. PRINT USING "#### primes in ##.### seconds";count;XX#-X#
  42.  
  43. END
  44.