challenge-215/luca-ferrari/postgresql/ch-1.plperl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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;