Task 2 plperl done

1 files changed, 23 insertions, 0 deletions

diff --git a/challenge-198/luca-ferrari/postgresql/ch-2.plperl b/challenge-198/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..39d1113737
--- /dev/null
+++ b/challenge-198/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,23 @@
+CREATE SCHEMA IF NOT EXISTS pwc198;
+
+CREATE OR REPLACE FUNCTION
+pwc198.task2_plperl( int )
+RETURNS int
+AS $CODE$
+   my ( $n ) = @_;
+
+   my $is_prime = sub {
+      for ( 2 .. $_[0] - 1 ) {
+      	  last if $_ * 2 > $_[0]; 
+      	  return 0 if $_[0] % $_ == 0;
+      }
+
+      return 1;
+   };
+
+   my $counter = 0;
+   $counter += $is_prime->( $_ )  for ( 2 .. $n );
+
+   return $counter;
+$CODE$
+LANGUAGE plperl;