diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-03-20 10:02:27 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-03-20 10:02:27 +0100 |
| commit | 2361cffe4d37cfda64a7fc8955feb9e37fc057cc (patch) | |
| tree | 46fe77205639bbb7fc704c608baabe82fd8e9505 | |
| parent | f0007ffd19a3b96801df848d747e5a8c3aa1af72 (diff) | |
| download | perlweeklychallenge-club-2361cffe4d37cfda64a7fc8955feb9e37fc057cc.tar.gz perlweeklychallenge-club-2361cffe4d37cfda64a7fc8955feb9e37fc057cc.tar.bz2 perlweeklychallenge-club-2361cffe4d37cfda64a7fc8955feb9e37fc057cc.zip | |
Task 1 plpgsql
| -rw-r--r-- | challenge-209/luca-ferrari/postgresql/ch-1.sql | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/challenge-209/luca-ferrari/postgresql/ch-1.sql b/challenge-209/luca-ferrari/postgresql/ch-1.sql new file mode 100644 index 0000000000..916f85b4bb --- /dev/null +++ b/challenge-209/luca-ferrari/postgresql/ch-1.sql @@ -0,0 +1,24 @@ +-- +-- 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_plpgsql( b text ) +RETURNS int +AS $CODE$ +DECLARE +BEGIN + IF ( length( b ) % 2 = 0 AND b ~ '00$' ) OR ( length( b ) % 2 = 1 AND b ~ '0$' ) THEN + RETURN 1; + ELSE + RETURN 0; + END IF; + +END +$CODE$ +LANGUAGE plpgsql; |