ch-1 by ChicagoBoss

1 files changed, 34 insertions, 0 deletions

diff --git a/challenge-203/chicagoist/perl/ch-1.pl b/challenge-203/chicagoist/perl/ch-1.pl
new file mode 100644
index 0000000000..b62ec860e6
--- /dev/null
+++ b/challenge-203/chicagoist/perl/ch-1.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/perl
+use v5.10;
+use strict;
+use warnings FATAL => 'all';
+our $VERSION = '0.01';
+
+sub specialQuadruplets
+{
+    my (@nums) = @_;
+    my $count = 0;
+
+    for (my $x = 0; $x <= $#nums - 3; $x++)
+    {
+        for (my $y = $x + 1; $y <= $#nums - 2; $y++)
+        {
+            for (my $z = $y + 1; $z <= $#nums - 1; $z++)
+            {
+                for (my $d = $z + 1; $d <= $#nums; $d++)
+                {
+                    if ($nums[$x] + $nums[$y] + $nums[$z] == $nums[$d])
+                    {
+                        $count++;
+                    }
+                }
+            }
+        }
+    }
+    return $count;
+}
+
+use Test::More tests => 3;
+ok specialQuadruplets(1, 2, 3, 6) == 1;
+ok specialQuadruplets((1, 1, 1, 3, 5)) == 4;
+ok specialQuadruplets(3, 3, 6, 4, 5) == 0;
\ No newline at end of file