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

 1 CREATE OR REPLACE FUNCTION GETGYS(NUM1 NUMBER, NUM2 NUMBER) RETURN NUMBER IS
 2   RESULTNUM NUMBER;
 3   NUM3      NUMBER;
 4   MINNUM    NUMBER;
 5 BEGIN
 6   IF NUM1 >= NUM2 THEN
 7     MINNUM := NUM2;
 8   ELSE
 9     MINNUM := NUM1;
10   END IF;
11   NUM3 := MINNUM;
12   LOOP
13     IF (MOD(NUM1, NUM3) = 0 AND MOD(NUM2, NUM3) = 0) THEN
14       RESULTNUM := NUM3;
15       EXIT;
16      END IF;
17     NUM3 := NUM3 - 1;
18   END LOOP;
19   RETURN(RESULTNUM);
20 END GETGYS;