Merge branch 'master' of https://github.com/manwar/perlweeklychallenge-club

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-278/luca-ferrari/plpgsql/ch-1.sql b/challenge-278/luca-ferrari/plpgsql/ch-1.sql
new file mode 100644
index 0000000000..dfbc14b996
--- /dev/null
+++ b/challenge-278/luca-ferrari/plpgsql/ch-1.sql
@@ -0,0 +1,24 @@
+--
+-- Perl Weekly Challenge 278
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-278>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc278;
+
+CREATE OR REPLACE FUNCTION
+pwc278.task1_plpgsql( words text[] )
+RETURNS SETOF text
+AS $CODE$
+
+   WITH numbered AS (
+      SELECT substring( v::text from '^[a-zA-Z]+' ) as word
+           , substring( v::text from '\d+$' )::int as index
+      FROM unnest( words ) v
+   )
+   SELECT word
+   FROM numbered
+   ORDER BY index
+   ;
+$CODE$
+LANGUAGE sql;