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