samples/alpha-mj-exp/max-arr.mj

   1 // load an array of ints and print the maximum
   2 program max_arr {
   3         int[] load()
   4                 int[] res;
   5                 int c,num,in; {
   6                 print('l');
   7                 print('e');
   8                 print('n');
   9                 print('g');
  10                 print('t');
  11                 print('h');
  12                 print('?');
  13                 read(num);
  14                 res = new int[num];
  15                 c = 0;
  16                 while (c<num) {
  17                         print(c);
  18                         print('?');
  19                         read(in);
  20                         res[c] = in;
  21                         c++;
  22                 }
  23                 return res;
  24         }
  25
  26         void printar(int[] arr)
  27                 int c;
  28         {
  29                 c = 0;
  30                 while (c < len(arr)) {
  31                         print(arr[c]);
  32                         print(' ');
  33                         c++;
  34                 }
  35                 print(chr(10));
  36         }
  37
  38         int max(int[] arr)
  39                 int c, max;
  40         {
  41                 if (len(arr) == 0)
  42                    return 0;
  43                 max = arr[0];
  44                 c = 1;
  45                 while (c < len(arr)) {
  46                       if (max < arr[c])
  47                          max = arr[c];
  48                       c++;
  49                 }
  50                 return max;
  51         }
  52
  53         void main()
  54                 int[] arr;
  55         {
  56                 arr = load();
  57                 printar(arr);
  58                 print(max(arr));
  59         }
  60 }