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