Mercurial > projects > ldc

comparison tests/mini/sieve.d @ 341:1bb99290e03a trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[svn r362] Started merging the old 'test' dir as well as the newer 'tangotests' dir into 'tests/mini' and 'tests/minicomplex'.
author lindquist
date Sun, 13 Jul 2008 02:51:19 +0200
parents test/sieve.d@d9d5d59873d8
children
comparison
equal deleted inserted replaced
340:351c0077d0b3 341:1bb99290e03a
1 /* Eratosthenes Sieve prime number calculation. */
2
3 extern(C) int printf(char*, ...);
4
5 bool flags[8191];
6
7 int main()
8 { int i, prime, k, count, iter;
9
10 printf("10 iterations\n");
11 for (iter = 1;
12 iter <= 10;
13 iter++)
14 {
15 count = 0;
16 flags[] = true;
17 for (i = 0; i < flags.length; i++)
18 { if (flags[i])
19 {
20 prime = i + i + 3;
21 k = i + prime;
22 while (k < flags.length)
23 {
24 flags[k] = false;
25 k += prime;
26 }
27 count += 1;
28 }
29 }
30 }
31 printf("%d primes\n", count);
32 return 0;
33 }