From 0ccfb2c3e4fb9bb0e13b4f1824cfebf5ee9a8073 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Tue, 2 May 2023 11:19:33 +0200
Subject: Task 1 plperl done

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

diff --git a/challenge-215/luca-ferrari/postgresql/ch-1.plperl b/challenge-215/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..c131788df4
--- /dev/null
+++ b/challenge-215/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,20 @@
+--
+-- Perl Weekly Challenge 215
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-215/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc215;
+
+CREATE OR REPLACE FUNCTION
+pwc215.task1_plperl( text[] )
+RETURNS SETOF text
+AS $CODE$
+  my ( $words ) = @_;
+  for ( $words->@* ) {
+      return_next( $_ ) if ( $_ eq join( '', sort( split( //, $_ ) ) ) );
+  }
+
+return undef;
+$CODE$
+LANGUAGE plperl;
-- 
cgit