- Added solution to 3 Sum task.

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-051/mohammad-anwar/perl/ch-1.pl b/challenge-051/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..e9c00dbf4e
--- /dev/null
+++ b/challenge-051/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my @L = (-25, -10, -7, -3, 2, 4, 8, 10);
+my $S = $#L;
+my $T = 0;
+
+foreach my $i (0 .. $S) {
+    foreach my $j (0 .. $S) {
+        next if ($i == $j);
+        foreach my $k (0 .. $S) {
+            next if (($k == $i) || ($k == $j));
+            print sprintf("[%d, %d, %d]\n", $L[$i], $L[$j], $L[$k])
+                if ($L[$i] + $L[$j] + $L[$k] == $T);
+        }
+    }
+}