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

diff --git a/samples/pos-neg.mj b/samples/pos-neg.mj
new file mode 100644
index 0000000..5bf3771
--- /dev/null
+++ b/samples/pos-neg.mj
@@ -0,0 +1,40 @@
+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++;
+		}
+	}
+}