From 0c2e9c4fd01398cca5d1a65a1456190615e7a8d3 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 16 Jan 2023 11:53:43 +0100 Subject: Task 1 plpgsql --- challenge-200/luca-ferrari/postgresql/ch-1.sql | 27 ++++++++++++++++++++++++++ 1 file changed, 27 insertions(+) create mode 100644 challenge-200/luca-ferrari/postgresql/ch-1.sql diff --git a/challenge-200/luca-ferrari/postgresql/ch-1.sql b/challenge-200/luca-ferrari/postgresql/ch-1.sql new file mode 100644 index 0000000000..67ec06abc9 --- /dev/null +++ b/challenge-200/luca-ferrari/postgresql/ch-1.sql @@ -0,0 +1,27 @@ +-- +-- Perl Weekly Challenge 200 +-- Task 1 +-- +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc200; + +CREATE OR REPLACE FUNCTION +pwc200.task1_plpgsql( list int[] ) +RETURNS SETOF int[] +AS $CODE$ +DECLARE +BEGIN + + FOR i IN 2 .. array_length( list, 1 ) - 1 LOOP + IF list[ i + 1 ] - list [ i ] = list[ i ] - list[ i - 1 ] THEN + RETURN NEXT array[ list[ i - 1 ], list[ i ], list[ i + 1 ] ]; + END IF; + END LOOP; + +RETURN; + +END +$CODE$ +LANGUAGE plpgsql; -- cgit