Anonymous user
Sieve of Eratosthenes: Difference between revisions
no edit summary
No edit summary |
|||
Line 983:
110 IF f(n)=0 THEN PRINT n;",";
120 NEXT</lang>
==={{header|MSX Basic}}===
Line 997 ⟶ 999:
100 IF p(n)=0 THEN PRINT n;", ";
110 NEXT n</lang>
=={{header|M2000 Interpreter}}==
<lang M2000 Interpreter>
Module EratosthenesSieve (x) {
\\ Κόσκινο του Ερατοσθένη
If x>200000 Then Exit
Dim i(x+1)
k=2
k2=x div 2
While k<=k2 {
m=k+k
While m<=x {
i(m)=1
m+=k
}
k++
}
For i=2 to x {
If i(i)=0 Then Print i,
}
Print
}
EratosthenesSieve 1000
</lang>
==={{header|Sinclair ZX81 BASIC}}===
| |||