From c3ff98ee4aa79bcaa07c8a478e96539c2a512e73 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 14 May 2009 19:51:41 -0500
Subject: rename files for better sorting

---
 2.pl | 18 ------------------
 1 file changed, 18 deletions(-)
 delete mode 100755 2.pl

(limited to '2.pl')

diff --git a/2.pl b/2.pl
deleted file mode 100755
index 6b59aed..0000000
--- a/2.pl
+++ /dev/null
@@ -1,18 +0,0 @@
-#!/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