From 0ad4417f2a736d7b12076ec0a2ba7e722f574542 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Mon, 18 May 2009 00:18:51 -0500
Subject: solution to 28

---
 028.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 028.pl

diff --git a/028.pl b/028.pl
new file mode 100755
index 0000000..64d8dee
--- /dev/null
+++ b/028.pl
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $n = 1;
+my $total = $n;
+for my $i (1..500) {
+    for my $j (1..4) {
+        $n += 2 * $i;
+        $total += $n;
+    }
+}
+print "$total\n";
-- 
cgit v1.2.3