方法一
注意 : 1不是素数
–键入值判断
CREATE OR REPLACE FUNCTION f_isPrime(p_num int)
RETURN char
IS
v_msg char(1):= ‘y’;
BEGIN
IF p_num<2 THEN
v_msg:=‘n’;
END IF;
IF p_num >2 THEN
FOR i IN 2…floor(sqrt(p_num)) LOOP
IF mod(p_num,i) = 0 THEN
v_msg:=‘n’;
exit;
END IF;
END LOOP;
END IF;
RETURN v_msg;
END;
方法二
如果需要下边还有范围内函数输出的
–函数方法
CREATE OR REPLACE FUNCTION f_get_primes(p_low int,p_up int)
RETURN varchar2
IS
v_msg varchar2(8000):=’’;
BEGIN
IF p_low >p_up then
RETURN ‘区间不合法’;
END IF;
FOR i in p_low…p_up loop
IF f_isPrime(i)=‘y’ then
v_msg;=v_msg||i||’,’;
END if;
END loop;
V_msg:= substr(v_msg,1,length(v_msg))||’.’;
return v_msg;
END;