dnl gcd.m4 -- computes gcd(x,y): greatest common divisor
dnl $Id$
dnl Carlos Duarte, 981031
dnl 
dnl ----
dnl gcd(x,y)
dnl	returns the greatest common divisor between `x' and `y'
dnl
define(`gcd', `ifelse(eval($1%$2),0,$2,`gcd($2,eval($1%$2))')')dnl
dnl
ifdef(`TEST', ``'dnl
gcd(12, 3) = 3
gcd(12, 2) = 2
gcd(9, 6) = 3
gcd(22, 16) = 2
gcd(12, 12) = 12
gcd(2, 2) = 2
gcd(16, 6) = 2
gcd(18, 12) = 6
gcd(30, 12) = 6
gcd(20, 2) = 2
gcd(8, 2) = 2
gcd(22, 11) = 11
gcd(32, 26) = 2
gcd(21, 15) = 3
gcd(15, 3) = 3
')dnl