diff options
| -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; |