diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-05-15 08:31:08 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-05-15 08:31:08 +0200 |
| commit | 5bc6b4f50d9bc898ce10d6baf8ac7fd0d7515e2e (patch) | |
| tree | a0924654247d6e6b176d6834c34944d7e6cce4ef | |
| parent | 1e3cc0931bbc57e978cd4991807ac9d7a846e270 (diff) | |
| download | perlweeklychallenge-club-5bc6b4f50d9bc898ce10d6baf8ac7fd0d7515e2e.tar.gz perlweeklychallenge-club-5bc6b4f50d9bc898ce10d6baf8ac7fd0d7515e2e.tar.bz2 perlweeklychallenge-club-5bc6b4f50d9bc898ce10d6baf8ac7fd0d7515e2e.zip | |
Task 1 plperl done
| -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; |