Oracle函数：求两个数的最大公约数

CREATE OR REPLACE FUNCTION GETGYS(NUM1 NUMBER, NUM2 NUMBER) RETURN NUMBER IS
  RESULTNUM NUMBER;
  NUM3      NUMBER;
  MINNUM    NUMBER;
BEGIN
  IF NUM1 >= NUM2 THEN
    MINNUM := NUM2;
  ELSE
    MINNUM := NUM1;
  END IF;
  NUM3 := MINNUM;
  LOOP
    IF (MOD(NUM1, NUM3) = 0 AND MOD(NUM2, NUM3) = 0) THEN
      RESULTNUM := NUM3;
      EXIT;
     END IF;
    NUM3 := NUM3 - 1;
  END LOOP;
  RETURN(RESULTNUM);
END GETGYS;

2015-02-26 15:23:56