perl code for challenge 2

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-327/walt-mankowski/perl/ch-2.pl b/challenge-327/walt-mankowski/perl/ch-2.pl
new file mode 100644
index 0000000000..1180d571de
--- /dev/null
+++ b/challenge-327/walt-mankowski/perl/ch-2.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl
+use v5.40;
+
+my $min_dist = 1e300;
+my @pairs;
+my @elements = sort { $a <=> $b } @ARGV;
+
+for my $i (0..$#elements-1) {
+    for my $j ($i+1..$#elements) {
+        my $delta = abs($elements[$i] - $elements[$j]);
+        if ($delta < $min_dist) {
+            @pairs = ([$elements[$i], $elements[$j]]);
+            $min_dist = $delta;
+        } elsif ($delta == $min_dist) {
+            push @pairs, [$elements[$i], $elements[$j]];
+        }
+    }
+}
+
+for my $i (0..$#pairs) {
+    printf "[%d,%d]", $pairs[$i][0], $pairs[$i][1];
+    print ", " if $i < $#pairs;
+}
+say "";