diff options
| -rw-r--r-- | challenge-208/luca-ferrari/postgresql/ch-1.plperl | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/challenge-208/luca-ferrari/postgresql/ch-1.plperl b/challenge-208/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..2fc60f38d0 --- /dev/null +++ b/challenge-208/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,38 @@ +-- +-- Perl Weekly Challenge 208 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-208/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc208; + +/** + testdb=> select pwc208.task1_plperl( array['Perl', 'Raku', 'PHP']::text[], array['Raku', 'Perl', 'Java']::text[] ); + task1_plperl +-------------- + Perl + Raku +(2 rows) + +*/ +CREATE OR REPLACE FUNCTION +pwc208.task1_plperl( text[], text[] ) +RETURNS SETOF text +AS $CODE$ + my ( $first, $second ) = @_; + my %results; + + for my $a ( 0 .. $first->@* ) { + next if ! grep( $first->[ $a ], $second->@* ); + + my $b = ( grep( $first->[ $a ] eq $second->[ $_ ], 0 .. $second->@* ) )[ 0 ]; + push $results{ $a + $b }->@*, $first->[ $a ]; + } + + my $min = ( sort keys %results )[ 0 ]; + return_next( $_ ) for ( $results{ $min }->@* ); + +return undef; + +$CODE$ +LANGUAGE plperl; |