challenge-252/luca-ferrari/postgresql/ch-1.plperl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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;