diff options
| author | Guillermo Ramos | 2013-05-27 10:31:48 +0200 |
|---|---|---|
| committer | Guillermo Ramos | 2013-05-27 10:31:48 +0200 |
| commit | 317ee36636ebeec986971ef857cd297f0320e58d (patch) | |
| tree | 88c10fdbf166beae22f6c9d6c79970ae2240f4b0 /clojure/p3.clj | |
| download | euler-317ee36636ebeec986971ef857cd297f0320e58d.tar.gz | |
start
Diffstat (limited to 'clojure/p3.clj')
| -rw-r--r-- | clojure/p3.clj | 9 |
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)))) |