X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=mjc2wsl.git;a=blobdiff_plain;f=samples%2Fsample.mj;fp=samples%2Fsample.mj;h=0000000000000000000000000000000000000000;hp=8442ca893e9cc213b603fb895c2bc40edbbcc651;hb=6b96ddc43ce994ef402a19b106c283e571d45219;hpb=e3140851cb2899b2a352ef2825317bc939f5bf50 diff --git a/samples/sample.mj b/samples/sample.mj deleted file mode 100644 index 8442ca8..0000000 --- a/samples/sample.mj +++ /dev/null @@ -1,30 +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); - } - } -}