samples/alpha-mj-exp/gcd-rek-predef-m3.mj

   1 program RekGCD{
   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         {
  14                 print(gcd(8,12),3);
  15                 print(gcd(9,31),3);
  16                 print(gcd(164,88),3);
  17         }
  18 }