samples/alpha-mj-exp/gcd-proc-input.mj

   1 program procgcdinput{
   2
   3         int gcd(int a, int b)
   4         {
   5                 while (a != b) {
   6                         if (a>b)
   7                                 a = a-b;
   8                         if (a<b)
   9                                 b = b-a;
  10                 }
  11                 return a;
  12         }
  13
  14         void main()
  15                 int a;
  16                 int b;
  17         {
  18                 print('a');
  19                 print('?');
  20                 read(a);
  21                 print('b');
  22                 print('?');
  23                 read(b);
  24                 print(gcd(a,b),3);
  25         }
  26 }