Skip to content

Instantly share code, notes, and snippets.

@fumokmm

fumokmm/README.md

Created May 19, 2012 05:03
Show Gist options
  • Save fumokmm/2729276 to your computer and use it in GitHub Desktop.
Save fumokmm/2729276 to your computer and use it in GitHub Desktop.
Download ZIP
エラトステネスの篩を使ってClojureで素数を求める
Raw
primes.clj
(defn sieve [nums]
(filter #(not= 0 (rem % (first nums))) (rest nums)))
(defn primes []
(map first
(iterate sieve (iterate inc 2))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment