From 5bc6b4f50d9bc898ce10d6baf8ac7fd0d7515e2e Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 May 2023 08:31:08 +0200
Subject: Task 1 plperl done

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

diff --git a/challenge-217/luca-ferrari/postgresql/ch-1.plperl b/challenge-217/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..7e470898c1
--- /dev/null
+++ b/challenge-217/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,16 @@
+--
+-- Perl Weekly Challenge 217
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-217/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc217;
+
+CREATE OR REPLACE FUNCTION
+pwc217.task1_plperl( int[] )
+RETURNS int
+AS $CODE$
+   my ( $array ) = @_;
+   return ( sort( $array->@* ) )[ 3 ];
+$CODE$
+LANGUAGE plperl;
-- 
cgit