25'ten fazla konu seçemezsiniz
Konular bir harf veya rakamla başlamalı, kısa çizgiler ('-') içerebilir ve en fazla 35 karakter uzunluğunda olabilir.
34 satır
700 B
34 satır
700 B
numbers = 8192; // 1028 primes
|
|
repeats = 50;
|
|
|
|
count = 0;
|
|
|
|
then = cputime();
|
|
|
|
evals = evaluations();
|
|
|
|
for (n = 0; n < repeats; n = n + 1) {
|
|
print("\r", n, "/", repeats);
|
|
sieve = [];
|
|
count = 0;
|
|
for (i in numbers) sieve.push(nil);
|
|
for (i = 2; i < numbers; i = i + 1) {
|
|
if (!sieve[i]) {
|
|
// print(i, " ");
|
|
count = count + 1;
|
|
for (k = i+i; k < numbers; k = k+i)
|
|
sieve[k] = #t;
|
|
}
|
|
}
|
|
count;
|
|
}
|
|
|
|
evals = evaluations() - evals;
|
|
|
|
now = cputime();
|
|
secs = now - then;
|
|
|
|
print("\r", count, " primes in the first ", numbers, " numbers\n");
|
|
print(evals, " nodes evaluated in ",
|
|
secs, " seconds = ",
|
|
round(evals / secs), " nodes/sec\n");
|