3 /* Convert a decimal string to a long long unsigned. No error check is
10 long long unsigned acc;
25 /* isqrt(t) - computes the square root of t. (tege 86-10-27) */
28 sqrtllu (long long unsigned t)
33 for (b = 0, s = t; b++, (s >>= 1) != 0; )
52 int plist (p0, p1, tab)
53 long long unsigned p0, p1;
54 long long unsigned *tab;
59 long long unsigned *xp = tab;
61 for (p = p0; p <= p1; p += 2)
65 for (d = 3; d <= s; d += 2)
67 long long unsigned q = p % d;
85 nprimes = plist (str2llu ("1234111111"), str2llu ("1234111127"), tab);
87 if(tab[0]!=1234111117LL||tab[1]!=1234111121LL||tab[2]!=1234111127LL||tab[3]!=0)