1 files changed, 14 insertions, 0 deletions
diff --git a/p2.lisp b/p2.lisp
new file mode 100644
index 0000000..488a755
--- /dev/null
+++ b/p2.lisp
@@ -0,0 +1,14 @@
+(setq a (list 1 2))
+(setq l 0)
+(loop while (< l 4000000) do
+	(setq l (apply '+ (last a 2)))
+	(nconc a (list l))
+)
+
+(setq s 0)
+(loop for i in a do
+	(if (eq (mod i 2) 0)
+		(setq s (+ s i))
+	)
+)
+(print s)