1 files changed, 9 insertions, 0 deletions
diff --git a/clojure/p3.clj b/clojure/p3.clj
new file mode 100644
index 0000000..39ae510
--- /dev/null
+++ b/clojure/p3.clj
@@ -0,0 +1,9 @@
+(loop [number 600851475143
+       divisors ()]
+  (if (> number 1)
+    (let [div (or (some #(if (zero? (mod number %)) % false)
+                    (cons 2 (range 3 (/ number 2) 2)))
+                  number)]
+      (recur (/ number div)
+             (cons div divisors)))
+    (println (apply max divisors))))