Task 2 plperl done

1 files changed, 28 insertions, 0 deletions

diff --git a/challenge-179/luca-ferrari/postgresql/ch-2.plperl b/challenge-179/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..1a45a69416
--- /dev/null
+++ b/challenge-179/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,28 @@
+-- Perl Weekly Challenge 179
+-- Task 2
+
+CREATE SCHEMA IF NOT EXISTS pwc179;
+
+CREATE OR REPLACE FUNCTION
+pwc179.task2_plperl( int[] )
+RETURNS text
+AS $CODE$
+
+   my ($n) = shift;
+   my @n;
+
+   my @symbols = map {chr($_)} (0x2581..0x2588);
+
+   my ($min, $max) = (-1,-1);
+
+   # compute min and max over the values
+   for my $current ( @$n ) {
+       $max = $current if ( $current > $max );
+       $min = $current if ( $min == -1 || $current < $min );
+       push @n, $current;
+   }
+
+   my @graph = map { ( $_ - $min ) / ( $max - $min ) * scalar( @$n ) } @$n;
+   return join( '', @symbols[ @graph ] );
+$CODE$
+LANGUAGE plperl;