Create ch-1.pl

1 files changed, 35 insertions, 0 deletions

diff --git a/challenge-203/james-smith/perl/ch-1.pl b/challenge-203/james-smith/perl/ch-1.pl
new file mode 100644
index 0000000000..a4407f490a
--- /dev/null
+++ b/challenge-203/james-smith/perl/ch-1.pl
@@ -0,0 +1,35 @@
+#!/usr/local/bin/perl
+
+use strict;
+use warnings;
+use feature qw(say);
+use Test::More;
+
+my @TESTS = (
+  [ [1,2,3,6],   1 ],
+  [ [1,1,1,3,5], 4 ],
+  [ [3,3,6,4,5], 0 ],
+);
+
+is( special( @{$_->[0]} ), $_->[1] ) for @TESTS;
+done_testing();
+
+## Nothing really to do here other than a bit of brute
+## force....
+
+sub special {
+  my $c = 0;
+  for my $i (0..$#_-3) {
+    for my $j ($i+1..$#_-2) {
+      next unless $_[$i]<=$_[$j];
+      my $t = $_[$i]+$_[$j];
+      for my $k ($j+1..$#_-1) {
+        next unless $_[$j]<=$_[$k];
+        for my $l ($k..$#_) {
+          $c++ if $t+$_[$k]==$_[$l];
+        }
+      }
+    }
+  }
+  $c;
+}