Gemma https://blog.hatena.ne.jp/Gemma/ Gemmaの日記 https://gemma.hatenadiary.org/ 内包表記、百花繚乱。 ナイーブな実装なので、がんばればもっと速くなる。参考文献をどうぞ。 うっかり list:ec とtypoして、気づくのに20分ほど無駄にしたのはナイショだ。 (use srfi-42) (define-syntax vector-flip! (syntax-rules () ((_ vec i) (vector-set! vec i (not (vector-ref vec i)))))) (define (atkin-sieve limit) (let ((is-prime (make-vector (+ limit 1) #f)) (sqrt-limit (ceili… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fgemma.hatenadiary.org%2Fentry%2F20090420%2F1240260346" title=" Gaucheでアトキンの篩で素数リスト - Gemmaの日記" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2009-04-20 05:45:46 rich https://gemma.hatenadiary.org/entry/20090420/1240260346 1.0 100%