From 7bb644c6e7da16f16ed8337dcf3d6341ac9d2ec1 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Tue, 19 May 2009 22:17:11 -0500
Subject: 44 solution

---
 044.pl | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100755 044.pl

diff --git a/044.pl b/044.pl
new file mode 100755
index 0000000..54f9ce8
--- /dev/null
+++ b/044.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+use integer;
+
+my %p;
+
+for my $n (1..10000) {
+    $p{$n} = $n * (3 * $n - 1) / 2;
+}
+my %rp = reverse %p;
+
+my $min = 1e9;
+N: for my $n (1..10000) {
+    for my $m ($n..10000) {
+        my $sum = $p{$m} + $p{$n};
+        my $diff = $p{$m} - $p{$n};
+        next N if $diff > $min;
+        if (exists $rp{$sum} && exists $rp{$diff}) {
+            $min = $diff if $diff < $min;
+        }
+    }
+}
+print "$min\n";
-- 
cgit v1.2.3