home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 September / Simtel20_Sept92.cdr / msdos / cmplngmg / cl_jun89.arc / AWK210.ARC / GCD.AWK < prev    next >
Text File  |  1987-12-11  |  286b  |  11 lines
  1. {
  2.         arg1 =$1; arg2 = $2;
  3.         while (arg1 != arg2) {
  4.                 if (arg1 > arg2)
  5.                         arg1 -= arg2
  6.                 else
  7.                         arg2 -= arg1
  8.         }
  9.         print "The greatest common divisor of", $1, "and", $2, "is", arg1
  10. }
  11.