From cc8580c1e95075ef7098044a075b037762ffd09a Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Sun, 10 Jul 2022 10:52:39 +0100
Subject: - Added solution by Dario Mazzeo.

---
 challenge-172/dario-mazzeo/perl/ch-2.pl | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 challenge-172/dario-mazzeo/perl/ch-2.pl

(limited to 'challenge-172')

diff --git a/challenge-172/dario-mazzeo/perl/ch-2.pl b/challenge-172/dario-mazzeo/perl/ch-2.pl
new file mode 100755
index 0000000000..79749fa2cf
--- /dev/null
+++ b/challenge-172/dario-mazzeo/perl/ch-2.pl
@@ -0,0 +1,25 @@
+# THE WEEKLY CHALLENGE - 172
+# Task 2: Five-number Summary
+# Autore: Dario Mazzeo
+
+my @numeri=(0, 0, 1, 2, 63, 61, 27, 13);
+#my @numeri=(77, 79, 80, 86, 87, 87, 94, 99);
+
+@numeri=sort {$a <=> $b} @numeri;
+my $min=$numeri[0];
+my $max=$numeri[$#numeri];
+
+my $mediana=0;
+if ($#numeri/2 != int($#numeri/2)){$mediana=($numeri[int($#numeri/2)] + $numeri[int($#numeri/2)+1])/2;}
+else{$mediana=$numeri[int($#numeri/2)]/2;}
+
+my $primoquartile=0;
+my $terzoquartile=0;
+for (my $i=1; $i<=($#numeri+1)/4; $i++){
+	$primoquartile+=$numeri[$i];
+	$terzoquartile+=$numeri[$#numeri-$i];
+}
+$primoquartile/=($#numeri+1)/4;
+$terzoquartile/=($#numeri+1)/4;
+
+printf("%.2f, %.2f, %.2f, %.2f, %.2f\n", $min, $primoquartile, $mediana, $terzoquartile, $max);
\ No newline at end of file
-- 
cgit