From e85bd4e453aeb9ea1bb5400f756c4c9ee05c73fb Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 6 Mar 2023 14:42:30 +0100
Subject: Task 2 plperl done

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

diff --git a/challenge-207/luca-ferrari/postgresql/ch-2.plperl b/challenge-207/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..1f31604070
--- /dev/null
+++ b/challenge-207/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,23 @@
+--
+-- Perl Weekly Challenge 207
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-207/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc207;
+
+CREATE OR REPLACE FUNCTION
+pwc207.task2_plperl( int[] )
+RETURNS int
+AS $CODE$
+   
+   my ( $citations ) = @_;
+   my @cits = reverse sort $citations->@*;
+   my @data;
+   while ( my ( $key, $value ) = each( @cits ) ) {
+   	 push @data, $value if ( $key >= $value );
+   }
+
+   return ( sort( @data ) )[ 0 ];
+$CODE$
+LANGUAGE plperl;
-- 
cgit