この慣用のClojureですか？

Question

私は、Clojureを学ぶ最初のスタブとして、Clojureを使ってProject Eulerを始めました。

は、私が以前にPythonでそれを解決してきた1000

以下の3または5の全ての倍数の和を探す：：私は、最初の割り当てを解決してきました

sum(i for i in xrange(1000) if i%3==0 or i%5==0) 

(reduce + 
    (filter 
    (fn [x] 
     (or 
     (= 0 (mod x 3)) 
     (= 0 (mod x 5)))) 
    (range 1000))) 

私は実際にそれを得た方法、詳細については驚いていますが、私：これが私の最初のClojureの試みでありますそれは私のスタイルとClojureイディオムの無知のためだと確信しています。

このClojureコードの慣用バージョンはどのように見えますか？

Answer 1

これは、私はそれをやった方法です：

(apply + 
    (filter #(or (zero? (mod % 3)) 
       (zero? (mod % 5))) 
    (range 1000))) 

私の解決策が少しより慣用的になり何匿名関数リーダーマクロの使用は、ある#(...)とzero?fn

あなたのソリューションは、です異なるでも同様に良いと同じ！

BTW - オイラーの問題を解決することは、新しい言語を学ぶのに最適な方法です。本からすべてを得ることはできません。

編集：

私はあなたのPythonのバージョン（ない非常にきれいなIMO）

(apply + 
    (for [i (range 1000) :when (or (zero? (mod i 3)) 
           (zero? (mod i 5)))] 
    i)) 

Answer 2

ちょうど別のバージョンで異なるソリューションより多くのインラインを提供することを決めた：私は

(defn sum-of [n] 
    (reduce + (range n 1000 n))) 

(+ (sum-of 3) (sum-of 5) (- (sum-of 15))) 

Answer 3

Project Eulerの一般的な解を解くのと同じように、私の一般的な解法は次のとおりです。

(defn sum-multiples [nums lim] 
    (reduce 
    + 
    (filter 
    (fn [x] 
     (some identity 
      (map #(zero? (mod x %)) nums))) 
    (range lim)))) 

してからちょうど呼び出す：かなりそれをクリーンアップする

(sum-multiples [3 5] 1000)