swannodette · May 9, 2011 16:58 · juergenhoetzel · May 10, 2011
diff --git a/gistfile1.clj b/gistfile1.clj
 (set! *unchecked-math* true)

 (defmacro iloop [[b t n] & body]
  `(loop [~@b]
     (when ~t
       ~@body
       (recur ~n))))

 (defn count-primes [^long n]
  (let [c (inc n)
        ^booleans prime? (make-array Boolean/TYPE c)]
    (iloop [(i 2) (<= i n) (inc i)]
      (aset prime? i true))
    (iloop [(i 2) (<= (* i i) n) (inc i)]
      (if (aget prime? i)
        (iloop [(j i) (<= (* i j) n) (inc j)]
          (aset prime? (* i j) false))))
    (areduce prime? i r 0
      (if (aget prime? i)
        (inc r)
        r))))
	(set! unchecked-math true)

	(defmacro iloop [[b t n] & body]
	`(loop [~@b]
	(when ~t
	~@body
	(recur ~n))))

	(defn count-primes [^long n]
	(let [c (inc n)
	^booleans prime? (make-array Boolean/TYPE c)]
	(iloop [(i 2) (<= i n) (inc i)]
	(aset prime? i true))
	(iloop [(i 2) (<= (* i i) n) (inc i)]
	(if (aget prime? i)
	(iloop [(j i) (<= (* i j) n) (inc j)]
	(aset prime? (* i j) false))))
	(areduce prime? i r 0
	(if (aget prime? i)
	(inc r)
	r))))