samples/pos-neg.mj

   1 program P
   2         final int size = 10;
   3         class Table {
   4                 int[] pos;
   5                 int[] neg;
   6         }
   7         Table val;
   8 {
   9         void main()
  10                 int x, i;
  11         { //---------- Initialize val
  12                 val = new Table;
  13                 val.pos = new int[size];
  14                 val.neg = new int[size];
  15                 i = 0;
  16                 while (i < size) {
  17                         val.pos[i] = 0;
  18                         val.neg[i] = 0;
  19                         i++;
  20                 }
  21         //---------- Read values
  22                 read(x);
  23                 while (x != 0) {
  24                         if (0 <= x && x < size) {
  25                                 val.pos[x]++;
  26                         } else if (-size < x && x < 0) {
  27                                 val.neg[-x]++;
  28                         }
  29                         read(x);
  30                 }
  31
  32         // output everything
  33                 i = 0;
  34                 while (i < size) {
  35                         print(i,3);
  36                         print(val.pos[i],5);
  37                         print(val.neg[i],5);
  38                         print(chr(10));
  39                         i++;
  40                 }
  41         }
  42 }