diff options
| -rw-r--r-- | challenge-217/luca-ferrari/postgresql/ch-1.plperl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/challenge-217/luca-ferrari/postgresql/ch-1.plperl b/challenge-217/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..7e470898c1 --- /dev/null +++ b/challenge-217/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,16 @@ +-- +-- Perl Weekly Challenge 217 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-217/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc217; + +CREATE OR REPLACE FUNCTION +pwc217.task1_plperl( int[] ) +RETURNS int +AS $CODE$ + my ( $array ) = @_; + return ( sort( $array->@* ) )[ 3 ]; +$CODE$ +LANGUAGE plperl; |