From 9d756c802f1314ebb3321cda8cb9a11a85bd85c7 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 May 2023 08:45:44 +0200
Subject: Task 2 plpgsql done

---
 challenge-217/luca-ferrari/postgresql/ch-2.sql | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-217/luca-ferrari/postgresql/ch-2.sql

diff --git a/challenge-217/luca-ferrari/postgresql/ch-2.sql b/challenge-217/luca-ferrari/postgresql/ch-2.sql
new file mode 100644
index 0000000000..e41dae8834
--- /dev/null
+++ b/challenge-217/luca-ferrari/postgresql/ch-2.sql
@@ -0,0 +1,19 @@
+--
+-- Perl Weekly Challenge 217
+-- Task 2
+--
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-217/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc217;
+
+CREATE OR REPLACE FUNCTION
+pwc217.task2_plpgsql( a int[] )
+RETURNS int
+AS $CODE$
+   SELECT string_agg( v.vv::text, '' )::int
+   FROM ( SELECT vv
+          FROM unnest( a ) vv
+	  ORDER BY ( vv % 10 ) DESC  ) v;
+$CODE$
+LANGUAGE sql;
-- 
cgit