diff options
| author | Luca Ferrari <fluca1978@gmail.com> | 2022-11-22 12:52:49 +0100 |
|---|---|---|
| committer | Luca Ferrari <fluca1978@gmail.com> | 2022-11-22 12:52:49 +0100 |
| commit | 0f14f7e6e05a27325a48214c58c2ce453ea9fe52 (patch) | |
| tree | 74ba93f1737aa12cc9c186c653c2f72a4078ffcd | |
| parent | ea525b69ae60150592aabbeef4fb6c6c4b656ee1 (diff) | |
| download | perlweeklychallenge-club-0f14f7e6e05a27325a48214c58c2ce453ea9fe52.tar.gz perlweeklychallenge-club-0f14f7e6e05a27325a48214c58c2ce453ea9fe52.tar.bz2 perlweeklychallenge-club-0f14f7e6e05a27325a48214c58c2ce453ea9fe52.zip | |
Task 1 plpgsql done
| -rw-r--r-- | challenge-192/luca-ferrari/postgresql/ch-1.sql | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/challenge-192/luca-ferrari/postgresql/ch-1.sql b/challenge-192/luca-ferrari/postgresql/ch-1.sql new file mode 100644 index 0000000000..a13e6329ee --- /dev/null +++ b/challenge-192/luca-ferrari/postgresql/ch-1.sql @@ -0,0 +1,27 @@ +-- Perl Weekly Challenge 192 +-- Task 1 + +CREATE SCHEMA IF NOT EXISTS pwc192; + +CREATE OR REPLACE FUNCTION +pwc192.task1_plpgsql( n int ) +RETURNS int +AS $CODE$ +DECLARE + bb text; + b bit; +BEGIN + bb := '0'; -- needed for the conversion + FOREACH b IN ARRAY regexp_split_to_array( n::bit(8)::text, '' ) LOOP + IF b THEN + bb := bb || 0; + ELSE + bb := bb || 1; + END IF; + END LOOP; + + RAISE INFO '%', bb; + RETURN bb::bit(8)::int; +END +$CODE$ +LANGUAGE plpgsql; |