Sieve of Eratosthenes: Difference between revisions
Content added Content deleted
No edit summary |
|||
| Line 983: | Line 983: | ||
110 IF f(n)=0 THEN PRINT n;","; |
110 IF f(n)=0 THEN PRINT n;","; |
||
120 NEXT</lang> |
120 NEXT</lang> |
||
==={{header|MSX Basic}}=== |
==={{header|MSX Basic}}=== |
||
| Line 997: | Line 999: | ||
100 IF p(n)=0 THEN PRINT n;", "; |
100 IF p(n)=0 THEN PRINT n;", "; |
||
110 NEXT n</lang> |
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}}=== |
==={{header|Sinclair ZX81 BASIC}}=== |
||