blob: 833624ff3f78563b0dc86c2fbfc67d0464ac5d06 [file] [log] [blame]
#include <stdio.h>
/* Convert a decimal string to a long long unsigned. No error check is
performed. */
long long unsigned
str2llu (str)
char *str;
{
long long unsigned acc;
int d;
acc = *str++ - '0';
for (;;)
{
d = *str++;
if (d == '\0')
break;
d -= '0';
acc = acc * 10 + d;
}
return acc;
}
/* isqrt(t) - computes the square root of t. (tege 86-10-27) */
long unsigned
sqrtllu (long long unsigned t)
{
long long unsigned s;
long long unsigned b;
for (b = 0, s = t; b++, (s >>= 1) != 0; )
;
s = 1LL << (b >> 1);
if (b & 1)
s += s >> 1;
do
{
b = t / s;
s = (s + b) >> 1;
}
while (b < s);
return s;
}
int plist (p0, p1, tab)
long long unsigned p0, p1;
long long unsigned *tab;
{
long long unsigned p;
long unsigned d;
long unsigned s;
long long unsigned *xp = tab;
for (p = p0; p <= p1; p += 2)
{
s = sqrtllu (p);
for (d = 3; d <= s; d += 2)
{
long long unsigned q = p % d;
if (q == 0)
goto not_prime;
}
*xp++ = p;
not_prime:;
}
*xp = 0;
return xp - tab;
}
main (argc, argv)
int argc;
char *argv[];
{
long long tab[10];
int nprimes;
nprimes = plist (str2llu ("1234111111"), str2llu ("1234111127"), tab);
if(tab[0]!=1234111117LL||tab[1]!=1234111121LL||tab[2]!=1234111127LL||tab[3]!=0)
abort();
exit(0);
}