From fc32bb6575d9df08fd456001d6074a67a4201514 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 15 May 2023 08:35:22 +0200
Subject: Task 2 plperl done

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

diff --git a/challenge-217/luca-ferrari/postgresql/ch-2.plperl b/challenge-217/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..d722bcba46
--- /dev/null
+++ b/challenge-217/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,22 @@
+--
+-- 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_plperl( int[] )
+RETURNS int
+AS $CODE$
+   use List::Permutor;
+   my ( $max ) = 0;
+   my $engine = List::Permutor->new( $_[0]->@* );
+   while ( my @current = $engine->next ) {
+   	 $max = join( '', @current ) if ( join( '', @current ) > $max );
+   }
+
+   return $max;
+$CODE$
+LANGUAGE plperlu;
-- 
cgit