Sieve of Eratosthenes: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,000: / Line 1,000: @@
 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: / Line 6,172: @@
        i fby sieve ( i whenever i mod first i ne 0 ) ;
     end
+=={{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|M4}}==