Skip to content

Instantly share code, notes, and snippets.

@sinemetu1

sinemetu1/lazy-primes.clj

Created February 21, 2012 01:36
Show Gist options
  • Save sinemetu1/1872843 to your computer and use it in GitHub Desktop.
Save sinemetu1/1872843 to your computer and use it in GitHub Desktop.
Download ZIP
Lazy-Primes
Raw
lazy-primes.clj
(defn lazy-seq-prime
([]
(concat [2] (lazy-seq-prime 2 (iterate inc 2))))
([p nums]
(let [nnums (filter (fn [x] (pos? (rem x p))) nums) n (first nnums)]
(lazy-seq
(cons n (lazy-seq-prime n nnums))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment