Hi, As has been said, this is not SoE. But my take would be something along : (reduce (fn [primes number] (if (some zero? (map (partial mod number) (take-while #(<= % (Math/sqrt number)) primes))) primes (conj primes number))) [2] (take n (iterate inc 3)))
But I'm a noob, so it migth be the bilnd leading the blind ☺ Best Regards, b. On Wednesday, November 26, 2014 3:52:44 PM UTC+1, Chernyshev Alex wrote: > > (defn not-divisible-by?[num denum] > (not (= (mod num denum) 0))) > > (defn div-nums [denum bound] > (for [x (range 2 bound) :when (not-divisible-by? x denum)] x)) > > (defn divisible? [coll denum] > (empty? (filter #(and (not= denum %) (not(not-divisible-by? denum %))) > coll))) > > (defn generate-primes > "Sieve of Eratosthenes" > [n] > (let [src (div-nums 2 n)] > (cons 2 (for [x src :when (divisible? src x)] x)))) > > > -- You received this message because you are subscribed to the Google Groups "Clojure" group. To post to this group, send email to clojure@googlegroups.com Note that posts from new members are moderated - please be patient with your first post. To unsubscribe from this group, send email to clojure+unsubscr...@googlegroups.com For more options, visit this group at http://groups.google.com/group/clojure?hl=en --- You received this message because you are subscribed to the Google Groups "Clojure" group. To unsubscribe from this group and stop receiving emails from it, send an email to clojure+unsubscr...@googlegroups.com. For more options, visit https://groups.google.com/d/optout.