Anonymous user
Sieve of Eratosthenes: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 1,000:
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}}===
Line 6,195 ⟶ 6,172:
i fby sieve ( i whenever i mod first i ne 0 ) ;
end
▲<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|M4}}==
| |||