Clojureの - 私は次のコードを持っている

Question

を減らすねじ切りマップを最適化：それは数字が大きい得るとき、それは時間が爆発を実行していることを除いて、うまく働いている

(defn series-sum 
    "Compute a series : (+ 1 1/4 1/7 1/10 1/13 1/16 ...)" 
    [n] 
    (->> (iterate (partial + 3) 1) 
     (map #(/ 1 %)) 
     (take n) 
     (reduce +) 
     float 
     (format "%.2f") 
     (str))) 

を。私のコンピュータで(series-sum 2500)はおそらく2番目または2つですが、(series-sum 25000)と私は私のREPLを殺す必要があります。

可能な限り(take n)を移動しようとしましたが、それでは不十分です。なぜ私はそれが遅くなるのか分からないので、私はClojureについて何かを理解していないと感じている（私は(series-sum 25000)が(series-sum 2500)と約10倍かかると思う）。

最適化するための明白なループ/反復解がありますが、ステップを印刷して1つのステップ（ドキュメントストリングのように見える(take n)）を持つことができるという考えが好きです。

デバッグ性を維持しながらこのコードのパフォーマンスを向上させるにはどうすればよいですか？

さらに、各ステップの時間を測定して、時間を測定することはできますか？

Answer 1

はい、@ zerkmsのリンクに関係します。あなたは、おそらくより良いフロートにマップする必要があり、有理数にマップ：

(defn series-sum 
    "Compute a series : (+ 1 1/4 1/7 1/10 1/13 1/16 ...)" 
    [n] 
    (->> (iterate (partial + 3) 1) 
     (take n) 
     (map #(/ 1.0 %)) 
     (reduce +) 
     (format "%.2f"))) 

は、今でははるかに高速に動作します：

user> (time (series-sum 2500000)) 
"Elapsed time: 686.233199 msecs" 
"5,95" 

Answer 2

を数学的な操作のこのタイプの場合は、ループ内のコンピューティングは、怠惰なシーケンスを使用するよりも高速です。これは、より高速な私のために他の答えよりも桁違いです：

(defn series-sum 
    [n] 
    (loop [i 0 
     acc 0.0] 
    (if (< i n) 
     (recur (inc i) 
      (+ acc (/ (float 1) (inc (* 3 i))))) 
     (format "%.2f" acc)))) 

注：formatは文字列を返すので、あなたはstrは必要ありません。

編集：もちろん、これは元の質問のコードの主な問題ではありません。改善の大部分は、他の答えに示されているように、有理数を排除することから来ています。これは単なる最適化です。