From 2361cffe4d37cfda64a7fc8955feb9e37fc057cc Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 20 Mar 2023 10:02:27 +0100
Subject: Task 1 plpgsql

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

diff --git a/challenge-209/luca-ferrari/postgresql/ch-1.sql b/challenge-209/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..916f85b4bb
--- /dev/null
+++ b/challenge-209/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,24 @@
+--
+-- Perl Weekly Challenge 209
+-- Task 1
+--
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-209/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc209;
+
+CREATE OR REPLACE FUNCTION
+pwc209.task1_plpgsql( b text )
+RETURNS int
+AS $CODE$
+DECLARE
+BEGIN
+	IF ( length( b ) % 2 = 0 AND b ~ '00$' ) OR ( length( b ) % 2 = 1 AND b ~ '0$' ) THEN
+	   RETURN 1;
+	ELSE
+	  RETURN 0;
+	END IF;
+
+END
+$CODE$
+LANGUAGE plpgsql;
-- 
cgit