44 solution

1 files changed, 24 insertions, 0 deletions

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";