From 690be1c0b847c56acce9a2927f9dae8d4c151a97 Mon Sep 17 00:00:00 2001 From: Luca Ferrari Date: Mon, 16 Jan 2023 11:16:31 +0100 Subject: Task 1 plperl --- challenge-200/luca-ferrari/postgresql/ch-1.plperl | 37 +++++++++++++++++++++++ 1 file changed, 37 insertions(+) create mode 100644 challenge-200/luca-ferrari/postgresql/ch-1.plperl diff --git a/challenge-200/luca-ferrari/postgresql/ch-1.plperl b/challenge-200/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..53d25fae3b --- /dev/null +++ b/challenge-200/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,37 @@ +-- +-- Perl Weekly Challenge 200 +-- Task 1 +-- See +-- + +CREATE SCHEMA IF NOT EXISTS pwc200; + +CREATE OR REPLACE FUNCTION +pwc200.task1_plperl( int[] ) +RETURNS SETOF int[] +AS $CODE$ + my ( $list ) = @_; + my @slices; + + for my $center ( 1 .. $list->@* - 1 ) { + for ( 1 .. $center ) { + my ( $start, $end ) = ( $center - $_, $center + $_ ); + $start = 0 if $start < 0; + $end = $list->@* - 1 if $end >= $list->@*; + + my @seeking = $list->@[ $start .. $end ]; + my $ok = 1; + my $difference = undef; + + for ( 1 .. $#seeking ) { + $difference = $seeking[ $_ ] - $seeking[ $_ - 1 ] if ! defined( $difference ); + $ok = 0 and last if $seeking[ $_ ] - $seeking[ $_ - 1 ] != $difference; + } + + return_next( [@seeking] ) if $ok and scalar( @seeking ) >= 3; + } + } + +return; +$CODE$ +LANGUAGE plperl; -- cgit