From 7c5ec0040ca4b6fb8d1fb8d17a1d48b6df4210db Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan.hemsley@gmail.com>
Date: Sat, 22 Oct 2016 12:41:52 -0700
Subject: [PATCH] solution to problem 006 in lisp

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

diff --git a/lisp/euler006.lisp b/lisp/euler006.lisp
new file mode 100644
index 0000000..9708f94
--- /dev/null
+++ b/lisp/euler006.lisp
@@ -0,0 +1,14 @@
+(load "euler.lisp")
+
+(defun sum-of-squares-up-to (n)
+  (sum (mapcar (lambda (n) (* n n)) (range 1 n)))
+)
+
+(defun square-of-sum-up-to (n)
+  (let* ((square (sum (range 1 n))))
+        (* square square))
+)
+
+(defun solution ()
+  (- (square-of-sum-up-to 100) (sum-of-squares-up-to 100))
+)