Task 2 plperl done

1 files changed, 35 insertions, 0 deletions

diff --git a/challenge-215/luca-ferrari/postgresql/ch-2.plperl b/challenge-215/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..0985b6fe4b
--- /dev/null
+++ b/challenge-215/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,35 @@
+--
+-- Perl Weekly Challenge 215
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-215/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc215;
+
+CREATE OR REPLACE FUNCTION
+pwc215.task2_plperl( int, int[] )
+RETURNS int
+AS $CODE$
+   my ( $count, $digits ) = @_;
+   my ( $done );
+
+   while ( $count ) {
+   	 $done = 0;
+	 for ( 1 .. scalar( $digits->@* ) - 1 ) {
+	     if ( $digits->[ $_ ] == 0
+	     	&& $digits->[ $_ - 1 ] == 0
+		&& $digits->[ $_ + 1 ] == 0 ) {
+		$digits->[ $_ ] = 1;
+		$done = 1;
+		$count--;
+		last;
+	     }
+	 }
+
+	 last if ! $done;
+   }
+
+   return 1 if ! $count;
+   return 0;
+$CODE$
+LANGUAGE plperl;