ultimatepp/benchmarks/BenchEsc/test.esc
cxl 5f0f425da8 .benchmarks
git-svn-id: svn://ultimatepp.org/upp/trunk@14393 f0d560ea-af0d-0410-9eb7-867de7ffcac7
2020-04-28 09:01:35 +00:00

14 lines
196 B
Text

sieve()
{
N = 2000;
sieve = N * [1];
prime = [];
for(i = 2; i < N; i++) {
if(sieve[i]) {
prime[] = i;
for(j = i; j < N; j += i)
sieve[j] = 0;
}
}
return prime;
}