From 6fefc120fec1fd8de9ab11fcadbf73b4b88ac4e4 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Tue, 22 Nov 2022 08:52:28 +0100
Subject: Task 1 plperl done

---
 challenge-192/luca-ferrari/postgresql/ch-1.plperl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 challenge-192/luca-ferrari/postgresql/ch-1.plperl

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;
-- 
cgit