home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
cmplangm
/
1989_6
/
awk
/
gcd.awk
< prev
next >
Wrap
Text File
|
1987-12-10
|
286b
|
11 lines
{
arg1 =$1; arg2 = $2;
while (arg1 != arg2) {
if (arg1 > arg2)
arg1 -= arg2
else
arg2 -= arg1
}
print "The greatest common divisor of", $1, "and", $2, "is", arg1
}