home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / comp_lan / 85_febr / benmrk.lbr / BENMRK.SVE < prev    next >
Text File  |  1988-07-25  |  768b  |  34 lines
  1.  
  2.                  Sieve of Eratosthenes Benchmark
  3.                        C Compiler Analysis
  4.                  February 1985 COMPUTER LANGUAGE
  5.  
  6.  
  7. /* Eratosthenes Sieve Prime Number Program in C */
  8. #define TRUE    1
  9. #define FALSE    0
  10. #define SIZE    8190
  11.  
  12. char flags[SIZE+1];
  13.  
  14. main()
  15. {
  16. int i, prime, k, count, iter;
  17.  
  18.     printf("10 iterations.\n");
  19.     for (iter = 1; iter <= 10; iter++) {
  20.         count = 0;
  21.         for (i = 0; i <= SIZE; i++)
  22.             flags[i] = TRUE;
  23.         for (i = 0; i<= SIZE; i++) {
  24.             if (flags[i]) {
  25.                 prime = i + i + 3;
  26.                 for (k = i + prime; k <= SIZE; k += prime)
  27.                     flags[k] = FALSE;
  28.                 count++;
  29.             }
  30.         }
  31.     }
  32.     printf("%d %d\n", prime, count);
  33. }
  34.