From 5625ad93926298ceb5bcca92c5e7bdf9ccfd51a2 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 19 Dec 2022 10:23:41 +0100
Subject: Task 1 plperl done

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

diff --git a/challenge-196/luca-ferrari/postgresql/ch-1.plperl b/challenge-196/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..834e9828ab
--- /dev/null
+++ b/challenge-196/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,24 @@
+-- Perl Weekly Challenge 196
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc196;
+
+CREATE OR REPLACE FUNCTION
+pwc196.task1_plperl( int[] )
+RETURNS SETOF int[]
+AS $CODE$
+
+  my ( $array ) = $_[ 0 ];
+  my $index = 1;
+
+  while ( $index < $array->@* ) {
+     my @triplet = ( $array->[ $index - 1 ], $array->[ $index ], $array->[ $index + 1 ] );
+     $index += 2 and return_next( [ @triplet ] )  if ( $tripet[ 0 ] < $triplet[ 1 ]
+                                && $triplet[ 1 ] < $triplet[ 2 ] );
+     $index++;				
+  }
+
+return undef;
+
+$CODE$
+LANGUAGE plperl;
-- 
cgit