1 files changed, 59 insertions, 0 deletions
diff --git a/challenge-218/robert-dicicco/perl/ch-1.pl b/challenge-218/robert-dicicco/perl/ch-1.pl
new file mode 100644
index 0000000000..9517f308ba
--- /dev/null
+++ b/challenge-218/robert-dicicco/perl/ch-1.pl
@@ -0,0 +1,59 @@
+#!/usr/bin/env perl
+=begin comment
+-----------------------------------------
+AUTHOR: Robert DiCicco
+DATE  : 2023-05-22
+Challenge 218 Maximum Product ( Perl )
+-----------------------------------------
+=cut
+use strict;
+use warnings;
+use feature 'say';
+use Algorithm::Combinatorics qw(permutations combinations);
+
+my @lists = ([3, 1, 2],[4, 1, 3, 2],[-1, 0, 1, 3, 1],[-8, 2, -9, 0, -4, 3]);
+
+my $maxval = 0;
+
+my $threelist = 0;
+
+for my $lst (@lists) {
+    say "Input: \@list = [@$lst]";
+    my $iter = combinations($lst, 3);
+    while (my $c = $iter->next) {
+            my $threeval = @{$c}[0] * @{$c}[1] * @{$c}[2];
+            if ($threeval > $maxval) {
+                $maxval = $threeval;
+                $threelist = $c;
+            }
+    }
+    say "Output: $maxval";
+    my @sorted = sort(@{$threelist});
+    say "$sorted[0] x $sorted[1] x $sorted[2] = ",$maxval;
+    $maxval = 0;
+    $threelist = 0;
+    say "";
+}
+
+=begin comment
+-----------------------------------------
+SAMPLE OUTPUT
+perl .\MaxProduct.pl
+
+Input: @list = [3 1 2]
+Output: 6
+1 x 2 x 3 = 6
+
+Input: @list = [4 1 3 2]
+Output: 24
+2 x 3 x 4 = 24
+
+Input: @list = [-1 0 1 3 1]
+Output: 3
+1 x 1 x 3 = 3
+
+Input: @list = [-8 2 -9 0 -4 3]
+Output: 216
+-8 x -9 x 3 = 216
+-----------------------------------------
+=cut