From 4da647eb205e1c340f7c3f2c88c87bf1dd9bc357 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Wed, 3 May 2023 08:16:17 +0200 Subject: Task 2 plpgsql done --- challenge-215/luca-ferrari/postgresql/ch-2.sql | 46 ++++++++++++++++++++++++++ 1 file changed, 46 insertions(+) create mode 100644 challenge-215/luca-ferrari/postgresql/ch-2.sql diff --git a/challenge-215/luca-ferrari/postgresql/ch-2.sql b/challenge-215/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..e92b6c4a44 --- /dev/null +++ b/challenge-215/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,46 @@ +-- +-- Perl Weekly Challenge 215 +-- Task 2 +-- +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc215; + +CREATE OR REPLACE FUNCTION +pwc215.task2_plpgsql( c int, digits int[] ) +RETURNS boolean +AS $CODE$ +DECLARE + done boolean; + i int; +BEGIN + i := 2; + WHILE c > 0 LOOP + done := false; + + WHILE i < array_length( digits, 1 ) LOOP + IF digits[ i ] = 0 AND digits[ i - 1 ] = 0 AND digits[ i + 1 ] = 0 THEN + digits[ i ] := 1; + done := true; + c := c - 1; + EXIT; + END IF; + + i := i + 1; + END LOOP; + + + IF NOT done THEN + EXIT; + END IF; + END LOOP; + + IF c = 0 THEN + RETURN true; + ELSE + RETURN false; + END IF; +END +$CODE$ +LANGUAGE plpgsql; -- cgit