eXorithm – Execute Algorithm: View / Run Algorithm gcd_euclid

function gcd_euclid ($a, $b
{
  $a = abs$a);
  $b = abs$b);
  
  if ($a == 0)
    return $b
  elseif ($b == 0)
    return $a
  elseif ($a > $b
    return gcd_euclid$b, $a % $b);
  else
    return gcd_euclid$a, $b % $a);
}