Task 1 sql done

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-201/luca-ferrari/postgresql/ch-1.sql b/challenge-201/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..17597a8b88
--- /dev/null
+++ b/challenge-201/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,19 @@
+--
+-- Perl Weekly Challenge 201
+-- Task 1
+--
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-201/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc201;
+
+CREATE OR REPLACE FUNCTION
+pwc201.task1_plpgsql( n int[] )
+RETURNS SETOF int
+AS $CODE$
+   SELECT v
+   FROM generate_series( 1, array_length( n, 1 ) ) v
+   WHERE v NOT IN
+   ( SELECT unnest( n ) );
+$CODE$
+LANGUAGE sql;