diff options
| -rw-r--r-- | challenge-200/luca-ferrari/postgresql/ch-2.plperl | 3 | ||||
| -rw-r--r-- | challenge-200/luca-ferrari/postgresql/ch-2.sql | 16 |
2 files changed, 17 insertions, 2 deletions
diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.plperl b/challenge-200/luca-ferrari/postgresql/ch-2.plperl index d436feaeee..d30bb62302 100644 --- a/challenge-200/luca-ferrari/postgresql/ch-2.plperl +++ b/challenge-200/luca-ferrari/postgresql/ch-2.plperl @@ -11,7 +11,6 @@ pwc200.task2_plperl( int ) RETURNS text AS $CODE$ - use List::MoreUtils qw/zip/; my ( $value ) = @_; my $lcd = [ @@ -119,4 +118,4 @@ AS $CODE$ return $display; $CODE$ -LANGUAGE plperlu; +LANGUAGE plperl; diff --git a/challenge-200/luca-ferrari/postgresql/ch-2.sql b/challenge-200/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..0e07041c87 --- /dev/null +++ b/challenge-200/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,16 @@ +-- +-- Perl Weekly Challenge 200 +-- Task 2 +-- +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-200/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc200; + +CREATE OR REPLACE FUNCTION +pwc200.task2_plpgsql( v int ) +RETURNS text +AS $CODE$ + SELECT pwc200.task2_plperl( v ); +$CODE$ +LANGUAGE sql; |