X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=samples%2Fsample1.mj;fp=samples%2Fsample1.mj;h=0000000000000000000000000000000000000000;hp=620bd2daa1af7fe783cd2fd6adbd5a075b94239d;hb=6b96ddc43ce994ef402a19b106c283e571d45219;hpb=e3140851cb2899b2a352ef2825317bc939f5bf50

diff --git a/samples/sample1.mj b/samples/sample1.mj
deleted file mode 100644
index 620bd2d..0000000
--- a/samples/sample1.mj
+++ /dev/null
@@ -1,38 +0,0 @@
-program Eratos
-
-	char[] sieve;
-	int max;		// maximum prime to be found
-	int npp;		// numbers per page
-
-{
-	void put(int x)
-	{
-		if (npp == 10) {print(chr(13)); print(chr(10)); npp = 0;}
-		print(x, 5);
-		npp++;
-	}
-	
-	void found(int x)
-		int i;
-	{
-		put(x);
-		i = x;
-		while (i <= max) {sieve[i] = 'o'; i = i + x;}
-	}
-
-	void main()
-		int i;
-	{
-		read(max);
-		npp = 0;
-		sieve = new char[max+1];
-		i = 0;
-		while (i <= max) {sieve[i] = 'x'; i++;}
-		i = 2;
-		while (i <= max) {
-			found(i);
-			while(i <= max && sieve[i] == 'o') i++;
-		}
-	}
-
-}//test
\ No newline at end of file