clojure 对等式使用线程宏

Question

我在 Java 中有这个等式，我想将其翻译成 Clojure:

limit = (int)(n*(Math.log(n) + Math.log(Math.log(n)))) + 3;

我想避免它变成一大堆嵌套括号，在 Clojure 中使其可读的最佳方法是什么？

Answer 1

您可以使用 let 形式将公式分解为更简单的部分:

(defn calc-limit [n]
  (let [log (Math/log n)
        loglog (Math/log log)
        logsum (+ log loglog)]
    (-> n (* logsum) int (+ 3))))

(calc-limit 256) ; => 1861