RosettaCodeData/Task/Pathological-floating-point-problems/Clojure/pathological-floating-point-problems-2.clj
2023-07-01 13:44:08 -04:00

3 lines
133 B
Clojure

(def e-ratio 106246577894593683/39085931702241241)
(defn bank [n m] (- (* n m) 1))
(double (reduce bank (- e-ratio 1) (range 1 26)))