Numero Primo PL SQL

[elcalinperu]

Hola tengo un pequeño problema tengo un examen final dentro de 3 dias y aun no se como sacar un numero primo, lo que quiero hacer es crear una funcion y que reciba un parametro ( n) entonces cuando use esta funcion quiero que me RETORNE si el parametro "n" es o no primo. Aqui esta lo que hice ojala me den una mano se los agradezco.

CREATE OR REPLACE FUNCTION PRIMO(N NUMBER)
RETURN VARCHAR2
IS
VAR VARCHAR2(20);
BEGIN
FOR I IN 2..N-1 LOOP
IF MOD(N,I)=0 THEN
VAR:='NO ES PRIMO';
ELSE
VAR:= 'ES PRIMO';
END IF;
END LOOP;
RETURN (VAR);
END;
/

[matanga]

Encontré este código por internet, no lo tengo probado, pero parece estar bien.

Código:

FUNCTION is_prime (
number_in IN INTEGER
)
RETURN BOOLEAN
IS
c_limit INTEGER := ABS ( number_in );
retval BOOLEAN DEFAULT TRUE;
divisor INTEGER := 2;
BEGIN
WHILE ( divisor < c_limit AND retval )
LOOP
retval := MOD ( number_in, divisor ) <> 0;
divisor := divisor + 1;
END LOOP;

RETURN retval;
END is_prime;

Saludos

[elcalinperu]

bueno despues de largo rato halle la solucion :
aqui está para los que necesiten

CREATE OR REPLACE FUNCTION PRIMO(N NUMBER)
RETURN VARCHAR2 AS VAR VARCHAR2(20);
BEGIN
FOR I IN 2..N-1 LOOP
IF MOD(N,I)=0 THEN VAR:='NO ES PRIMO';
GOTO paso1;
ELSE VAR:='ES PRIMO';
END IF;
END LOOP;
<<paso1>>
RETURN VAR;
END;
/

[MutenRo]

Hola elcalinperu,

recordando algunas buenas prácticas de programación te recomiendo sustituir el 'GOTO paso1;' por 'EXIT;'.

Por otra parte, teniendo en cuenta criterios de divisibilidad, el algoritmo sería mucho más eficiente si en lugar de 'FOR I IN 2..N-1 LOOP' pusieras 'FOR I IN 2..FLOOR(SQRT(N)) LOOP'.

Un saludo.

[jc3000]

Iniciado por MutenRo

Hola elcalinperu,

recordando algunas buenas prácticas de programación te recomiendo sustituir el 'GOTO paso1;' por 'EXIT;'.

Totalmente de acuerdo. Yo a los programadores de mi equipo les tengo totalmente prohibido usar etiquetas.

[elcalinperu]

mm ya veo muchas gracias si me olvide de ponerle que acepte numeros negativos poniendo en el for un ABS(n)-1 y claro usando el SQRT seria un mejor algoritmo gracias por su ayuda
no sabia que instruccion darle porque en java necesito de BREAK asi que ya que pl sql acepta la programacion estructurada GOTO no dude en ponerlo, entonces EXIT funciona como BREAK eso no sabia bueno gracias otra vez :)