diff options
| -rw-r--r-- | challenge-206/luca-ferrari/postgresql/ch-2.plperl | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/challenge-206/luca-ferrari/postgresql/ch-2.plperl b/challenge-206/luca-ferrari/postgresql/ch-2.plperl new file mode 100644 index 0000000000..d9cbbe220c --- /dev/null +++ b/challenge-206/luca-ferrari/postgresql/ch-2.plperl @@ -0,0 +1,23 @@ +-- +-- Perl Weekly Challenge 206 +-- Task 2 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-206/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc206; + +CREATE OR REPLACE FUNCTION +pwc206.task2_plperl( int[] ) +RETURNS int +AS $CODE$ + my ( $list ) = sort $_[ 0 ]; + my $sum = 0; + + while ( $list->@* ) { + $sum += shift $list->@*; + shift $list->@*; + } + + return $sum; +$CODE$ +LANGUAGE plperl; |