Task 2 done in plpgsql

1 files changed, 17 insertions, 0 deletions

diff --git a/challenge-170/luca-ferrari/postgresql/ch-2.sql b/challenge-170/luca-ferrari/postgresql/ch-2.sql
new file mode 100644
index 0000000000..a58154c95b
--- /dev/null
+++ b/challenge-170/luca-ferrari/postgresql/ch-2.sql
@@ -0,0 +1,17 @@
+-- Perl Weekly Challenge 170
+-- Task 2
+
+CREATE SCHEMA IF NOT EXISTS pwc170;
+
+CREATE OR REPLACE FUNCTION
+pwc170.task2_plpgsql( ta text, tb text )
+RETURNS TABLE ( a int, b int, c int, d int )
+AS $CODE$
+DECLARE
+BEGIN
+        RETURN QUERY
+        EXECUTE format( 'SELECT a.a * b.a, a.a * b.b, a.b * b.a, a.b * b.b FROM %I a, %I b',
+                        ta, tb );
+END
+$CODE$
+LANGUAGE plpgsql;