PostgreSQL - dadad

-- 67.- - Funció spread(text) que converteix el text d'entrada en un altre, passat a majúscules, i amb un espai en blanc afegit entre cada dos caràcters de la cadena original. Així "Hola, que tal?" donaria com a sortida "H O L A , Q U E T A L ?"
CREATE FUNCTION spread(text)
RETURNS text AS
'
DECLARE
str text;
ret text; -- cadena buida
pos integer;
len integer;
BEGIN
str := upper($1);
ret := ''''; -- cadena buida
pos := 1;
len := length(str);
WHILE pos <= len LOOP
ret := ret || substr(str, pos, 1) || '' '';
pos := pos + 1;
END LOOP;
RETURN ret;
END;
'
LANGUAGE plpgsql;
-- test driver
select spread('aixo es una prova');