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