Task 1 SQL done

1 files changed, 30 insertions, 0 deletions

diff --git a/challenge-208/luca-ferrari/postgresql/ch-1.sql b/challenge-208/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..fd626bdd31
--- /dev/null
+++ b/challenge-208/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,30 @@
+--
+-- Perl Weekly Challenge 208
+-- Task 1
+--
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-208/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc208;
+
+CREATE OR REPLACE FUNCTION
+pwc208.task1_plpgsql( f text[], s text[] )
+RETURNS SETOF TEXT
+AS $CODE$
+	WITH ta AS (
+	   SELECT t, row_number() over() AS v
+	   FROM unnest( f ) t
+	)
+	, tb AS (
+	   SELECT t, row_number() over() AS v
+	   FROM unnest( s ) t
+	)
+	, res AS (
+	  SELECT ta.t, ta.v + tb.v AS v
+	  FROM ta JOIN tb ON ta.t = tb.t
+	)
+	SELECT res.t
+	FROM res
+	WHERE res.v = (SELECT min( res.v ) FROM res );
+$CODE$
+LANGUAGE sql;