diff options
| -rw-r--r-- | challenge-192/luca-ferrari/postgresql/ch-1.plperl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-192/luca-ferrari/postgresql/ch-1.plperl b/challenge-192/luca-ferrari/postgresql/ch-1.plperl new file mode 100644 index 0000000000..0d235f8fcc --- /dev/null +++ b/challenge-192/luca-ferrari/postgresql/ch-1.plperl @@ -0,0 +1,18 @@ +-- Perl Weekly Challenge 192 +-- Task 1 + +CREATE SCHEMA IF NOT EXISTS pwc192; + +CREATE OR REPLACE FUNCTION +pwc192.task1_plperl( int) +RETURNS int +AS $CODE$ + my ($n) = @_; + + + my @bits = map { $_ == 0 ? 1 : 0 } split( '', sprintf( "%b", $n ) ); + my $binary = join( '', @bits ); + my $flipped = eval( "0b$binary" ); + return $flipped; +$CODE$ +LANGUAGE plperl; |