samples renamed to more logical names

[mjc2wsl.git] / samples / sample1.mj

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