diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2023-05-15 08:45:44 +0200 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2023-05-15 08:45:44 +0200 |
| commit | 9d756c802f1314ebb3321cda8cb9a11a85bd85c7 (patch) | |
| tree | f785158f22a10266b7062c93a2065ede7be8654a | |
| parent | 655b6e67c6b081aa03d125605a7e607e22bc04d7 (diff) | |
| download | perlweeklychallenge-club-9d756c802f1314ebb3321cda8cb9a11a85bd85c7.tar.gz perlweeklychallenge-club-9d756c802f1314ebb3321cda8cb9a11a85bd85c7.tar.bz2 perlweeklychallenge-club-9d756c802f1314ebb3321cda8cb9a11a85bd85c7.zip | |
Task 2 plpgsql done
| -rw-r--r-- | challenge-217/luca-ferrari/postgresql/ch-2.sql | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/challenge-217/luca-ferrari/postgresql/ch-2.sql b/challenge-217/luca-ferrari/postgresql/ch-2.sql new file mode 100644 index 0000000000..e41dae8834 --- /dev/null +++ b/challenge-217/luca-ferrari/postgresql/ch-2.sql @@ -0,0 +1,19 @@ +-- +-- Perl Weekly Challenge 217 +-- Task 2 +-- +-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-217/> +-- + +CREATE SCHEMA IF NOT EXISTS pwc217; + +CREATE OR REPLACE FUNCTION +pwc217.task2_plpgsql( a int[] ) +RETURNS int +AS $CODE$ + SELECT string_agg( v.vv::text, '' )::int + FROM ( SELECT vv + FROM unnest( a ) vv + ORDER BY ( vv % 10 ) DESC ) v; +$CODE$ +LANGUAGE sql; |