diff options
| -rw-r--r-- | challenge-215/luca-ferrari/postgresql/ch-1.plperl | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/challenge-215/luca-ferrari/postgresql/ch-1.plperl b/challenge-215/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..c131788df4 --- /dev/null +++ b/challenge-215/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,20 @@ +-- +-- Perl Weekly Challenge 215 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-215/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc215; + +CREATE OR REPLACE FUNCTION +pwc215.task1_plperl( text[] ) +RETURNS SETOF text +AS $CODE$ + my ( $words ) = @_; + for ( $words->@* ) { + return_next( $_ ) if ( $_ eq join( '', sort( split( //, $_ ) ) ) ); + } + +return undef; +$CODE$ +LANGUAGE plperl; |