From f3d7ddcb540bb7ab77ff433fc94cb738ee38cf39 Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 12 Dec 2022 09:26:40 +0100
Subject: Task 2 plperl done

---
 challenge-195/luca-ferrari/postgresql/ch-2.plperl | 29 +++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 challenge-195/luca-ferrari/postgresql/ch-2.plperl

diff --git a/challenge-195/luca-ferrari/postgresql/ch-2.plperl b/challenge-195/luca-ferrari/postgresql/ch-2.plperl
new file mode 100644
index 0000000000..b15f6b215b
--- /dev/null
+++ b/challenge-195/luca-ferrari/postgresql/ch-2.plperl
@@ -0,0 +1,29 @@
+-- Perl Weekly Challenge 195
+-- Task 2
+
+CREATE SCHEMA IF NOT EXISTS pwc195;
+
+CREATE OR REPLACE FUNCTION
+pwc195.task2_plperl( int[] )
+RETURNS int
+AS $CODE$
+   my ( $array ) = @_;
+   # extract only evens
+   my @evens = grep { $_ % 2 == 0 } $array->@*;
+   # classify frequency
+   my $bag = {};
+   $bag->{ $_ }++ for ( @evens );
+
+
+   # sort by frequency and value
+   my @sorted_bag =
+     map { $_->[1] }
+     sort { $a->[0] <=> $b->[0] || $a->[1] <=> $b->[1] }
+     map { [ $bag->{ $_ }, $_ ] } keys $bag->%*;
+
+
+    # the first value in the list is the
+    # one with the max frequency and the lowest value
+    return $sorted_bag[ 0 ];	  
+$CODE$
+LANGUAGE plperl;
-- 
cgit