Task 1 plperl

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-199/luca-ferrari/postgresql/ch-1.plperl b/challenge-199/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..7b91f9a3f9
--- /dev/null
+++ b/challenge-199/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,24 @@
+-- Perl Weekly Challenge 199
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc199;
+
+CREATE OR REPLACE FUNCTION
+pwc199.task1_plperl( int[] )
+RETURNS int
+AS $CODE$
+
+  my ( $list ) = @_;
+  my @pairs;
+
+  for my $i ( 0 .. $list->@* ) {
+   for my $j ( $i .. $list->@* ) {
+     next if $i == $j;
+     push @pairs, [ $i, $j ] if ( $list->[ $i ] == $list->[ $j ] );
+   }
+ }
+
+ return scalar @pairs;
+
+$CODE$
+LANGUAGE plperl;