From ff22c74e122711797e658d51ff3e5bd17ad66a8d Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 3 Apr 2023 12:32:25 +0200 Subject: Task 1 plpgsql --- challenge-211/luca-ferrari/postgresql/ch-1.sql | 36 ++++++++++++++++++++++++++ 1 file changed, 36 insertions(+) create mode 100644 challenge-211/luca-ferrari/postgresql/ch-1.sql diff --git a/challenge-211/luca-ferrari/postgresql/ch-1.sql b/challenge-211/luca-ferrari/postgresql/ch-1.sql new file mode 100644 index 0000000000..23a33447de --- /dev/null +++ b/challenge-211/luca-ferrari/postgresql/ch-1.sql @@ -0,0 +1,36 @@ +-- +-- Perl Weekly Challenge 211 +-- Task 1 +-- +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc211; + +CREATE OR REPLACE FUNCTION +pwc211.task1_plpgsql( a int[][]) +RETURNS bool +AS $CODE$ +DECLARE + current_row int := 1; + current_col int := 1; + previous_val int := NULL; +BEGIN + WHILE current_row <= array_length( a, 1 ) LOOP + IF current_row > array_length( a, 2 ) THEN + RETURN false; + END IF; + + IF previous_val IS NULL THEN + previous_val := a[ current_row ][ current_row ]; + ELSIF previous_val <> a[ current_row ][ current_row ] THEN + RETURN false; + END IF; + + current_row := current_row + 1; + END LOOP; + + RETURN true; +END +$CODE$ +LANGUAGE plpgsql; -- cgit