CREATE FUNCTION square_integer_loop (integer) RETURNS integer AS '
DECLARE
-- Объявление псевдонима для аргумента,
numl ALIAS FOR $1;
- Объявление целочисленной переменной для хранения результата,
result integer;
BEGIN
- Исходное число присваивается переменной
result, result := numl;
LOOP
result := result * result:
EXIT WHEN result >
= 10000;
END LOOP;
RETURN result:
END; '
LANGUAGE 'plpgsql';
В листинге 11.43 показан результат вызова square_i nteger_l oop() с аргументом 3.