Функция такая:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
CREATE OR REPLACE FUNCTION peak1d
(A _int8, i int4, j int4)
RETURNS int8
AS
$$
DECLARE
m int4;
t_var0 text;
t_var1 text;
t_var2 text;
t_var3 text;
BEGIN
m := floor((i+j)/2::numeric);
IF A[m-1] <= A[m] AND A[m] >= A[m+1] THEN
RAISE INFO '1. A[m] = "%"', A[m];
RETURN m;
ELSIF A[m - 1] > A[m] THEN
m := ml_peak1d(A, i, m - 1);
RETURN m;
ELSIF A[m] < A[m + 1] THEN
m := ml_peak1d(A, m + 1, j);
RETURN m;
ELSE
RETURN 0::int4;
END IF;
END
$$
LANGUAGE plpgsql
SECURITY DEFINER;
Функция должна рекурсивно реализовать алгоритм Peak Finding
Вызов такой:
1.
2.
3.
SELECT public.peak1d
(ARRAY[1,2,6,5,3,7,4],
1::int4, 7::int4)
где 1-й параметр - массив чисел, 2-й параметер - нижний индекс массива, 3-й параметер - верхний индекс этого массива
Результат выполнения:
автор[SQL]SELECT public.peak1d
(ARRAY[1,2,6,5,3,7,4],
1::int4, 7::int4)
INFO: 1. A[m] = "6"
CONTEXT: PL/pgSQL function ml_peak1d(bigint[],integer,integer) line 19 at assignment
PL/pgSQL function peak1d(bigint[],integer,integer) line 14 at assignment
Time: 0.004s
Affected rows: 1
Т.е. рекурсия не получилась . Ожидаемые пики д.б. два:
- 3-й элемент массива (значение "6");
- 6-й элемент массива (значение "7").
Как это алгоритм реализовать рекурсивно в Pl/pgsql ?
