clojure - 这是 Clojure 惯用的吗？

Question

我已经开始使用 Clojure 进行 Project Euler，作为学习 Clojure 的第一次尝试。我已经解决了第一个作业:

Find the sum of all the multiples of 3 or 5 below 1000.

我之前用 Python 解决过这个问题:

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

这是我第一次尝试 Clojure:

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

实际上，我对它变得如此冗长感到惊讶，但我很确定这是因为我的风格和对 Clojure 习惯用法的无知。

此 Clojure 代码的惯用版本会是什么样子？

Answer 1

我就是这样做的:

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

使我的解决方案稍微更惯用的是使用匿名函数读取器宏、#(...) 和零？ fn

您的解决方案不同，但同样好!

顺便说一句 - 解决欧拉问题是学习新语言的好方法 - 你无法从书中获得所有内容。

编辑:

我决定提供一个更符合你的 Python 版本的不同解决方案(在我看来不是很漂亮)

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