gistfile1.txt

;; clojure.contrib.lazy-seqs/primes

(defn primes
  ([] (cons 2 (primes [2] 3)))
  ([ps n]
     (lazy-seq
      (if (not-any? #(zero? (rem n %)) (take-while #(<= (* % %) n) ps))
        (cons n (primes (conj ps n) (+ 2 n)))
        (primes ps (+ 2 n))))))

(def primes
  (cons 2
        ((fn primesfn [n]
           (lazy-seq
            (if (some #(zero? (rem n %)) (take-while #(<= (* % %) n) primes))
              (primesfn (+ 2 n))
              (cons n (primesfn (+ 2 n))))))
         3)))