From b9e7ca7fd5f39d5554f2f0e19cb40fc669b8abf9 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Tue, 27 Dec 2022 10:14:22 +0100
Subject: Task 1 plpgsql

---
 challenge-197/luca-ferrari/postgresql/ch-1.sql | 32 ++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100644 challenge-197/luca-ferrari/postgresql/ch-1.sql

(limited to 'challenge-197')

diff --git a/challenge-197/luca-ferrari/postgresql/ch-1.sql b/challenge-197/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..e96464bc11
--- /dev/null
+++ b/challenge-197/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,32 @@
+-- Perl Weekly Challenge 197
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc197;
+
+CREATE OR REPLACE FUNCTION
+pwc197.task1_plpgsql( l int[] )
+RETURNS int[]
+AS $CODE$
+DECLARE
+   i int;
+   v int[];
+   zeros int := 0;
+BEGIN
+	FOREACH i IN ARRAY l LOOP
+		IF i = 0 THEN
+		   zeros := zeros + 1;
+		   CONTINUE;
+		END IF;
+
+		v := v || i;
+	END LOOP;
+
+	WHILE zeros > 0 LOOP
+	      v := v || 0;
+	      zeros := zeros - 1;
+	END LOOP;
+
+	RETURN v;
+END
+$CODE$
+LANGUAGE plpgsql;
-- 
cgit