Số nguyên tố Clojure số nguyên tố lười biếng

Question

Tương đương Clojure (đối với thuật toán chính xác) của mã Python sau đây là gì?

from itertools import count 
from math import sqrt 

def prime_gen(): 
    primes = [] 
    for n in count(2): 
     if all(n%p for p in primes if p <= sqrt(n)): 
      primes.append(n) 
      yield n 

Answer 1

Đây là như Pythonish như tôi có thể làm cho nó:

(def prime-gen 
    (let [primes (atom [])] 
     (for [n (iterate inc 2) 
      :when (not-any? #(zero? (rem n %)) 
          (filter #(<= % (Math/sqrt n)) 
            @primes))] 
     (do (swap! primes conj n) 
      n)))) 

(take 10 prime-gen) ; => (2 3 5 7 11 13 17 19 23 29) 

Clojure không xem xét các số nguyên từ 0 đến là boolean false. Nó đã cho tôi một vài phút để tìm ra rằng mã Python của bạn đã lợi dụng điều này.

Here là một số thuật toán số nguyên tố khác trong Clojure. Ngoài ra còn có một số thực hiện chính trong clojure.contrib.lazy-seqs.

Answer 2

Phiên bản này là nhanh hơn nhiều so với @ Brian Carper của

(def prime-gen 
    (let [primes (atom [2N])] 
    (iterate 
     #(let [ps @primes] 
     (loop [n (inc %)] 
      (if (loop [i 0] 
       (let [p (nth ps i)] 
        (cond 
        (< n (* p p)) true 
        (zero? (mod n p)) false 
        :else (recur (inc i))))) 
      (do (swap! primes conj n) n) 
      (recur (inc n))))) 
     (first @primes))))