nsz Git - libfirm/blob - ir/be/test/biggest_prime.c

   1 int m = 754974721, N, t[1 << 22], a, *p, i, e = 1 << 22, j, s, b, c, U;
   2
   3 f (d)
   4 {
   5   for (s = 1 << 23; s; s /= 2, d = d * 1L * d % m)
   6     if (s < N)
   7       for (p = t; p < t + N; p += s)
   8         for (i = s, c = 1; i; i--)
   9           b = *p + p[s], p[s] = (m + *p - p[s]) *
  10           1L * c % m, *p++ = b % m, c = c * 1L * d % m;
  11   for (j = 0; i < N - 1;)
  12     {
  13       for (s = N / 2; !((j ^= s) & s); s /= 2);
  14       if (++i < j)
  15         a = t[i], t[i] = t[j], t[j] = a;
  16     }
  17 }
  18
  19 int main ()
  20 {
  21   *t = 2;
  22   U = N = 1;
  23   while (e /= 2)
  24     {
  25       N *= 2;
  26       U = U * 1L * (m + 1) / 2 % m;
  27       f (362);
  28       for (p = t; p < t + N;)
  29         *p++ = (*p * 1L ** p % m) * U % m;
  30       f (415027540);
  31       for (a = 0, p = t; p < t + N;)
  32         a += (6972593 & e ? 2 : 1) ** p, *p++ = a % 10, a /= 10;
  33     }
  34   while (!*--p);
  35   t[0]--;
  36         {
  37                 int qs = 0;
  38       while (p >= t)
  39                                 qs += *p--;
  40     printf ("Checksumme = %d\n", qs);
  41         }
  42         return 0;
  43 }