diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-03-20 08:44:59 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-03-20 08:44:59 +0100 |
| commit | 22d1578835443033b03580d72b04ff48c1d332ac (patch) | |
| tree | 21a75e0e6f6dd6f3dd94260e424afa1ade705c58 | |
| parent | 9f9c1e8d1a77fed59c01c70c918682b4e6efe08c (diff) | |
| download | perlweeklychallenge-club-22d1578835443033b03580d72b04ff48c1d332ac.tar.gz perlweeklychallenge-club-22d1578835443033b03580d72b04ff48c1d332ac.tar.bz2 perlweeklychallenge-club-22d1578835443033b03580d72b04ff48c1d332ac.zip | |
Task 1 plperl done
| -rw-r--r-- | challenge-209/luca-ferrari/postgresql/ch-1.plperl | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-209/luca-ferrari/postgresql/ch-1.plperl b/challenge-209/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..8f410c7f40 --- /dev/null +++ b/challenge-209/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,19 @@ +-- +-- Perl Weekly Challenge 209 +-- Task 1 +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-209/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc209; + +CREATE OR REPLACE FUNCTION +pwc209.task1_plperl( text ) +RETURNS int +AS $CODE$ + my ( $string ) = @_; + my @bits = split( '', $string ); + return 1 if ( @bits % 2 != 0 && @bits[ - 1 ] == 0 ); + return 1 if ( @bits % 2 == 0 && @bits[ - 1 ] == 0 && @bits[ - 2 ] == 0 ); + return 0; +$CODE$ +LANGUAGE plperl; |