Skip to content

Instantly share code, notes, and snippets.

@lypanov

lypanov/clojure: infinite primes

Created February 7, 2010 17:46
Show Gist options
  • Save lypanov/297554 to your computer and use it in GitHub Desktop.
Save lypanov/297554 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
clojure: infinite primes
(defn prime-after [primes-before]
(first (drop-while #(some (fn [x] (zero? (mod % x))) primes-before)
(iterate inc (+ 1 (last primes-before))))))
(defn primes-after-seq [primes-before]
(let [this-prime (prime-after primes-before)
before-and-this (cons this-prime primes-before)]
(lazy-seq (cons this-prime (primes-after-seq before-and-this)))))
(def primes (primes-after-seq (list 2)))
(take 10 primes)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment