diff options
| -rw-r--r-- | challenge-201/luca-ferrari/postgresql/ch-2.plperl | 20 |
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; |