Task 2 plperl done

1 files changed, 20 insertions, 0 deletions

diff --git a/challenge-201/luca-ferrari/postgresql/ch-2.plperl b/challenge-201/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..68cfb36d32
--- /dev/null
+++ b/challenge-201/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,20 @@
+--
+-- Perl Weekly Challenge 201
+-- Task 2
+-- See <https://perlweeklychallenge.org/blog/perl-weekly-challenge-201/>
+--
+
+CREATE SCHEMA IF NOT EXISTS pwc201;
+
+CREATE OR REPLACE FUNCTION
+pwc201.task2_plperl( int)
+RETURNS int
+AS $CODE$
+
+  use Integer::Partition;
+  my $partitions = Integer::Partition->new( $_[0] );
+  my $count = 0;
+  $count++  while( $partitions->next );
+  return $count;
+$CODE$
+LANGUAGE plperlu;