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

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