6 lines
128 B
Clojure
6 lines
128 B
Clojure
(let [n 1e10]
|
|
(loop [i 1
|
|
out (- (Math/log n))]
|
|
(if (<= i n)
|
|
(recur (inc i) (+ out (/ 1.0 i)))
|
|
out)))
|