Re: rutina para genear pines

No te creo que usara toda la CPU; aca se demora 0% de CPU en decir que
la funcion no es valida.

create unique index pin_pines on pines (pin);

create or replace function crea_10_pines(int) returns void language plpgsql
volatile as $$
declare
total int := 0;
posibles text := '1234567890';
nuevo_pin text;
offset int;
y int;
largo alias for $1;
begin
LOOP
nuevo_pin := '';
FOR y IN 1 .. largo LOOP
offset := ceil(random()*length(posibles));
nuevo_pin := nuevo_pin || substr(posibles, offset, 1);
END LOOP;

BEGIN
INSERT INTO pines (pin) VALUES (nuevo_pin);
total := total + 1;
EXCEPTION WHEN others THEN
raise notice 'duplicado %', nuevo_pin;
END;
IF (total >= 10) THEN
RETURN;
END IF;
END LOOP;
end;
$$;

--
Alvaro Herrera (<alvherre[(at)]dcc(dot)uchile(dot)cl>)
"No renuncies a nada. No te aferres a nada."