Skip to content

Instantly share code, notes, and snippets.

@takeisa

takeisa/gist:3806817

Created September 30, 2012 14:03
Show Gist options
  • Save takeisa/3806817 to your computer and use it in GitHub Desktop.
Save takeisa/3806817 to your computer and use it in GitHub Desktop.
Download ZIP
[Clojure] prime? (memoize sample)
Raw
gistfile1.lisp
(defn prime? [n]
(cond
(== n 1) false
(== n 2) true
(even? n) false
:else (->> (range 3 (inc (Math/sqrt n)) 2)
(every? #(pos? (rem n %))))))
(def m-prime? (memoize prime?))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment