fork(1) download
copy 
  1. (defn primes []
  2.     (let [sieve (fn sieve [dic n] 
  3.             (if-let [factors (dic n)]
  4.                 (recur (reduce #(update % (+ n %2) (fnil conj []) %2)
  5.                             (dissoc dic n) factors) (inc n))
  6.                 (lazy-seq (cons n (sieve (assoc dic (* n n) [n]) (inc n))))))]
  7.         (sieve {} 2)))
  8.  
  9. (println (->> (primes) (drop 100000) first))
Success #stdin #stdout 2.88s 4386816KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
1299721
https://ideone.com/fyo5yQ
language:
Clojure (clojure 1.10.0)
created:
7 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!