From 60b398489b8ef2b9199b2318248db9ec643936bf Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan.hemsley@gmail.com>
Date: Wed, 19 Oct 2016 11:33:42 -0700
Subject: [PATCH] solution to problem 002 in lisp

---
 lisp/euler002.lisp | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 lisp/euler002.lisp

diff --git a/lisp/euler002.lisp b/lisp/euler002.lisp
new file mode 100644
index 0000000..390e62c
--- /dev/null
+++ b/lisp/euler002.lisp
@@ -0,0 +1,11 @@
+(load "euler.lisp")
+
+(defun fibonacci-list-helper (n builder)
+  (if (>= (+ (first builder) (first (rest builder))) n) builder (fibonacci-list-helper n (cons (+ (first builder) (first (rest builder))) builder)))
+)
+
+(defun fibonacci-list (n)
+  (fibonacci-list-helper n (list 2 1))
+)
+
+(defun solution () (sum (select (lambda (a) (eq (mod a 2) 0)) (fibonacci-list 4000000))))