-- 소수 판별 함수 정의
create or replace function is_prime(num in number)
    return number     -- 1: prime, 0: not prime
is
    v_limit number(3);
begin
    if num = 1 then
        return 0;
    elseif num = 2 then
        return 1;
    end if;

    v_limit := ceil(sqrt(num));
    for i in 2..v_limit loop
        if mod(num,i) = 0 then
            return 0;
        end if;
    end loop;
    return 1;
end;
/

-- 프로시져 정의
create or replace procedure sosu(p_num in number)
is
begin
    for i in 1..p_num loop
        if is_prime(i) = 1  then
             dbms_output.put_line('소수 : ' || i);
        end if;
    end loop;
end;
/

-- 실행
set serveroutput on
exec sosu(10)