diff --git a/prime.clj/src/prime/clj.clj b/prime.clj/src/prime/clj.clj index e1ccbc2aab99cc3210968cbc9f2ac3e83d968f73..50ccf6629a35d49144586570fd900b038837b277 100644 --- a/prime.clj/src/prime/clj.clj +++ b/prime.clj/src/prime/clj.clj @@ -4,11 +4,11 @@ (require '[clojure.math.numeric-tower :as math]) (defn prime? [x] - (cond + (if (integer? (math/sqrt x)) false - :else (every? - (fn [y] (not= (mod x y) 0)) - (range 2 (math/ceil (math/sqrt x)))))) + (every? + (fn [y] (not= (mod x y) 0)) + (range 2 (math/ceil (math/sqrt x)))))) (defn -main