Task 1 PL/Perl done

1 files changed, 40 insertions, 0 deletions

diff --git a/challenge-195/luca-ferrari/postgresql/ch-1.plperl b/challenge-195/luca-ferrari/postgresql/ch-1.plperl
new file mode 100644
index 0000000000..3ea8594add
--- /dev/null
+++ b/challenge-195/luca-ferrari/postgresql/ch-1.plperl
@@ -0,0 +1,40 @@
+-- Perl Weekly Challenge 195
+-- Task 1
+
+CREATE SCHEMA IF NOT EXISTS pwc195;
+
+CREATE OR REPLACE FUNCTION
+pwc195.task1_plperl( int, bool default true )
+RETURNS int
+AS $CODE$
+  my ( $n, $verbose ) = @_;
+  my @special_integers;
+
+  my $baggify = sub {
+     my ( $n ) = @_;
+     my $bag = {};
+     for my $digit ( split '', $n ) {
+     	 $bag->{ $digit }++;
+     }
+
+     return $bag;
+  };
+
+  my $has_no_repetitions = sub {
+     my ( $bag ) = @_;
+     for ( keys $bag->%* ) {
+     	 return 0 if $bag->{ $_ } != 1;
+     }
+
+     return 1;
+  };
+
+  for ( 1 .. $n ) {
+     push @special_integers, $_ if ( $has_no_repetitions->( $baggify->( $_ ) ) );
+  }
+
+  elog( INFO, "Found: " . join( ',', @special_integers ) ) if ( $ verbose );
+  return scalar @special_integers;
+
+$CODE$
+LANGUAGE plperl;