PWC 252

Task 1 Raku done
Task 2 Raku done

Task 1 PL/Perl done
Task 2 PL/Perl done

Task 1 PL/PgSQL done
Task 2 PL/PgSQL done

Task 1 Python done
Task 2 Python done

Task 1 Java done
Task 2 Java done

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-252/luca-ferrari/postgresql/ch-1.plperl b/challenge-252/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..5d8298c3e7
--- /dev/null
+++ b/challenge-252/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,24 @@
+--
+-- Perl Weekly Challenge 252
+-- Task 1
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-252/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc252;
+
+CREATE OR REPLACE FUNCTION
+pwc252.task1_plperl( int[] )
+RETURNS int
+AS $CODE$
+   my ( $nums ) = @_;
+
+   my ( $sum ) = 0;
+   
+   for ( 0 .. $nums->@* - 1 ) {
+       next if $nums->@* % ( $_ + 1 ) != 0;
+       $sum += $nums->@[ $_ ] ** 2;    
+   }
+
+   return( $sum );
+$CODE$
+LANGUAGE plperl;