From bb6dc490ca7bf9a43efcddd1c82b711dca35d38c Mon Sep 17 00:00:00 2001
From: Dan Ballard <dan@mindstab.net>
Date: Wed, 20 Aug 2014 23:10:58 -0700
Subject: [PATCH] add ghc haskell and go version for e2

---
 e2/e2.ghc.hs |  5 +++++
 e2/e2.go     | 15 +++++++++++++++
 2 files changed, 20 insertions(+)
 create mode 100644 e2/e2.ghc.hs
 create mode 100644 e2/e2.go

diff --git a/e2/e2.ghc.hs b/e2/e2.ghc.hs
new file mode 100644
index 0000000..a1890d8
--- /dev/null
+++ b/e2/e2.ghc.hs
@@ -0,0 +1,5 @@
+fibsum prev curr acc max	| curr > max = acc
+				| rem curr 2 == 0 = fibsum curr (prev + curr) (acc + curr) max
+				| otherwise = fibsum curr (prev + curr) acc max
+
+main = print (fibsum 1 1 0 4000000)
diff --git a/e2/e2.go b/e2/e2.go
new file mode 100644
index 0000000..e805744
--- /dev/null
+++ b/e2/e2.go
@@ -0,0 +1,15 @@
+package main
+
+import (
+	"fmt"
+)
+
+func main() {
+	sum := 0
+	for prev, curr := 1, 1; curr <= 4000000; prev, curr = curr, prev+curr {
+		if curr%2 == 0 {
+			sum += curr
+		}
+	}
+	fmt.Println(sum)
+}