home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / draco / draco-1.ark / SIEVE.DRC < prev    next >
Text File  |  1986-11-12  |  768b  |  35 lines
  1. /* Eratosthenes Sieve Prime Number Program in Draco */
  2.  
  3. bool
  4.     DEBUG = false;
  5.  
  6. int
  7.     SIZE = 8190,
  8.     ITERATIONS = 10;
  9.  
  10. proc main()void:
  11.     [SIZE + 1] bool flags;
  12.     unsigned ITERATIONS iter;
  13.     word i, prime, k, count;
  14.  
  15.     writeln(ITERATIONS, " iterations.");
  16.     for iter from 1 upto ITERATIONS do
  17.     count := 0;
  18.     for i from 0 upto SIZE do
  19.         flags[i] := true;
  20.     od;
  21.     for i from 0 upto SIZE do
  22.         if flags[i] then
  23.         prime := 2 * i + 3;
  24.         if DEBUG then
  25.             writeln(prime);
  26.         fi;
  27.         for k from i + prime by prime upto SIZE do
  28.             flags[k] := false;
  29.         od;
  30.         count := count + 1;
  31.         fi;
  32.     od;
  33.     od;
  34.     writeln(count, " primes.");
  35. corp;