3 [clojure.contrib trace test-is]))
12 (defn find-divisor [n test-divisor]
13 (cond (> (square test-divisor) n) n
14 (divides? test-divisor n) test-divisor
15 :else (find-divisor n (next-divisor test-divisor))))
18 I can't see any noticable difference in the speed.