Skip to content
Snippets Groups Projects
Commit 187c4a9c authored by nimrod's avatar nimrod
Browse files

Small corrections to the Clojure version.

parent 815d5c9e
Branches
No related tags found
No related merge requests found
......@@ -5,10 +5,10 @@
(defn prime? [x]
(cond
(integer? (clojure.math.numeric-tower/sqrt x)) false
(integer? (math/sqrt x)) false
:else (every?
(fn [y] (not= (mod x y) 0))
(range 2 (math/sqrt (math/ceil x))))))
(range 2 (math/ceil (math/sqrt x))))))
(defn -main
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment