gitweb on Svarog

projekti pod git sistemom za održavanje verzija -- projects under the git version control system
move samples to 'alpha-mj' subfolder
[mjc2wsl.git] / samples / pos-neg.mj
diff --git a/samples/pos-neg.mj b/samples/pos-neg.mj
deleted file mode 100644 (file)
index 79fd454..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-program P
-       final int size = 10;
-       class Table {
-               int[] pos;
-               int[] neg;
-       }
-       Table val;
-{
-       void main()
-               int x, i;
-       { //---------- Initialize val
-               val = new Table;
-               val.pos = new int[size]; 
-               val.neg = new int[size];
-               i = 0;
-               while (i < size) {
-                       val.pos[i] = 0; 
-                       val.neg[i] = 0;
-                       i++;
-               }
-       //---------- Read values
-               read(x);
-               while (x != 0) {
-                       if (0 <= x && x < size) {
-                               val.pos[x]++;
-                       } else if (-size < x && x < 0) {
-                               val.neg[-x]++;
-                       }
-                       read(x);
-               }
-       
-       // output everything
-               i = 0;
-               while (i < size) {
-                       print(i,3);
-                       print(val.pos[i],5);
-                       print(val.neg[i],5);
-                       print(chr(10));
-                       i++;
-               }
-       }
-}
Svarog.pmf.uns.ac.rs/gitweb maintanance Doni Pracner