From 22609ecbfcc4c5678a2a4c828f04ec8f3fb89bc1 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 19 Dec 2022 10:41:23 +0100 Subject: Task 2 plpgsql done --- challenge-196/luca-ferrari/postgresql/ch-2.sql | 35 ++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 challenge-196/luca-ferrari/postgresql/ch-2.sql diff --git a/challenge-196/luca-ferrari/postgresql/ch-2.sql b/challenge-196/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..434ac42b31 --- /dev/null +++ b/challenge-196/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,35 @@ +-- Perl Weekly Challenge 196 +-- Task 2 + +CREATE SCHEMA IF NOT EXISTS pwc196; + +CREATE OR REPLACE FUNCTION +pwc196.task2_plpgsql( l int[]) +RETURNS SETOF int[] +AS $CODE$ +DECLARE + c_start int := 0; + c_end int := 0; +BEGIN + + FOR i IN 0 .. array_length( l, 1 ) LOOP + IF i < c_end THEN + CONTINUE; + END IF; + + c_start := i; + c_end := c_start; + + WHILE c_end < array_length( l, 1 ) AND l[ c_end + 1 ] = l[ c_end ] + 1 LOOP + c_end := c_end + 1; + END LOOP; + + IF c_start < c_end THEN + RETURN NEXT ARRAY[ c_start, c_end ]::int[]; + END IF; + END LOOP; + +RETURN; +END +$CODE$ +LANGUAGE plpgsql; -- cgit