home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
calculat
/
sm30a.zip
/
GCD.(X)
< prev
next >
Wrap
Text File
|
1993-10-16
|
141b
|
5 lines
# gcd(a,b) gives the greatest common dividor of a and b
# e.g. gcd(9,6) gives 3
gcd(a_, b_) := if(mod(a,b) == 0, b, gcd(b, mod(a,b)) )