From 7e7b56db42ceb8d2b8973eae678fa4b58d5d3659 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 13 May 2009 23:32:40 -0500
Subject: add old solutions

---
 2.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 2.pl

(limited to '2.pl')

diff --git a/2.pl b/2.pl
new file mode 100755
index 0000000..6b59aed
--- /dev/null
+++ b/2.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+my $root5 = sqrt 5;
+my $phi = (1 + $root5)/2;
+
+sub fib { int (($phi**$_[0]-(1-$phi)**$_[0])/$root5 + 0.5) }
+
+my $i = 0;
+my $sum = 0;
+while (1) {
+    $i++;
+    my $n = fib $i;
+    last if $n > 1000000;
+    $sum += $n if $n % 2 == 0;
+}
+print "$sum\n";
-- 
cgit v1.2.3-54-g00ecf