1 files changed, 70 insertions, 0 deletions
diff --git a/challenge-172/bob-lied/perl/ch-2.pl b/challenge-172/bob-lied/perl/ch-2.pl
new file mode 100644
index 0000000000..49b526e9e8
--- /dev/null
+++ b/challenge-172/bob-lied/perl/ch-2.pl
@@ -0,0 +1,70 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-2.pl Perl Weekly Challenge 172 Task 2 Five-number Summary 
+#=============================================================================
+# Copyright (c) 2023, Bob Lied
+#=============================================================================
+# You are given an array of integers.
+# Write a script to compute the five-number summary of the given set
+# of integers.  You can find the definition and example in the wikipedia page. 
+# https://en.wikipedia.org/wiki/Five-number_summary
+# The five-number summary is a set of descriptive statistics that provides
+# information about a dataset. It consists of the five most important
+# sample percentiles:
+#   the sample minimum (smallest observation)
+#   the lower quartile or first quartile
+#   the median (the middle value)
+#   the upper quartile or third quartile
+#   the sample maximum (largest observation)
+#=============================================================================
+
+use v5.38;
+use builtin qw/true false/; no warnings "experimental::builtin";
+
+
+use Getopt::Long;
+my $Verbose = 0;
+my $DoTest  = 0;
+
+GetOptions("test" => \$DoTest, "verbose" => \$Verbose);
+exit(!runTest()) if $DoTest;
+
+sub median($ref)
+{
+    my $len = scalar( @$ref );
+    if ( $len % 2 )
+    {
+        # Odd length, take middle element
+        return $ref->[ int($len/2) ];
+    }
+    else
+    {
+        # Even length, take average of middle 2
+        my $mid = $len / 2;
+        return ( $ref->[$mid] + $ref->[$mid+1] ) / 2;
+    }
+}
+
+sub fiveSummary(@list)
+{
+    my @sorted = sort { $a <=> $b } @list;
+    my $len = scalar( @list );
+    my @summary = (
+        $sorted[0],
+        0,
+        median(\@sorted),
+        1,
+        $sorted[-1]
+        );
+}
+
+sub runTest
+{
+    use Test2::V0;
+
+    is( fiveSummary(0, 0, 1, 2, 63, 61, 27, 13),
+                    [0.0, 0.5, 7.5, 44.0, 63.0 ], "Example 1");
+
+    done_testing;
+}