From 317ee36636ebeec986971ef857cd297f0320e58d Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Mon, 27 May 2013 10:31:48 +0200
Subject: start

---
 clojure/p3.clj | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 clojure/p3.clj

(limited to 'clojure/p3.clj')

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))))
-- 
cgit v1.2.3