Task 1 done

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-193/luca-ferrari/postgresql/ch-1.sql b/challenge-193/luca-ferrari/postgresql/ch-1.sql
new file mode 100644
index 0000000000..83e2416a49
--- /dev/null
+++ b/challenge-193/luca-ferrari/postgresql/ch-1.sql
@@ -0,0 +1,20 @@
+-- Perl Weekly Challenge 193
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc193;
+
+CREATE OR REPLACE FUNCTION
+pwc193.task1_plpgsql( n int )
+RETURNS SETOF TEXT
+AS $CODE$
+DECLARE
+	i int;
+BEGIN
+	FOR i IN 0 .. pow( 2, n ) - 1 LOOP
+	    RETURN NEXT i::bit( 24 )::text;
+	END LOOP;
+
+	RETURN;
+END
+$CODE$
+LANGUAGE plpgsql;