Clojure での素因数分解プログラム - (define -ayalog '())

Clojure での素因数分解プログラム - (define -ayalog '())

これ読んでたら Clojure で実装したくなったのでやってみた*1。 最終的なコードはこれ。 (ns prime-fact...概要を表示 これ読んでたら Clojure で実装したくなったのでやってみた*1。 最終的なコードはこれ。 (ns prime-factorization.core (:gen-class)) (def prime-numbers ((fn f [x] (cons x (lazy-seq (f (first (drop-while (fn [n] (some #(zero? (mod n %)) (take-while #(<= (* % %) n) prime-numbers))) (iterate inc (inc x)))))))) 2)) (defn prime-factorization [n] (if (< n 2) [n] (loop [dividend n prime-factors [] primes (take-while #(<= % (Math/sqrt n)) prime-n