From d2d74d9e48ce2818cabb44231220bb375cfef691 Mon Sep 17 00:00:00 2001
From: Evan Hemsley <evan.hemsley@gmail.com>
Date: Sat, 22 Oct 2016 12:36:28 -0700
Subject: [PATCH] solution to problem 005 in lisp

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

diff --git a/lisp/euler005.lisp b/lisp/euler005.lisp
new file mode 100644
index 0000000..e6e5ce0
--- /dev/null
+++ b/lisp/euler005.lisp
@@ -0,0 +1,9 @@
+(load "euler.lisp")
+
+(defun is-evenly-divisible-by-all-up-to (n int)
+  (eq 0 (sum (mapcar (partial #'mod n) (range 2 int))))
+)
+
+(defun solution ()
+  (loop for i from 2 by 2 when (is-evenly-divisible-by-all-up-to i 20) do (return i))
+)