如何测试Clojure中两个数字是否接近

Question

在Clojure中测试两个数字是否彼此接近的惯用方法是什么？

沿着这条线的某个地方:

(deftest sqrt-test
   (is (~= 1.414 (Math/sqrt 2)))

Answer 1

你需要定义"关闭".如果您要求的差异小于某个容差,您可以使用<以下方法滚动自己的功能:

(defn close? [tolerance x y]
  (< (difference x y) tolerance))

差异可能是绝对的:

(defn absolute-difference ^double [^double x ^double y]
  (Math/abs (double (- x y))))

或亲戚:

(defn relative-difference ^double [^double x ^double y]
  (/ (Math/abs (- x y))
     (max (Math/abs x) (Math/abs y))))

(当然,选择你喜欢的相对差异的定义).

然后(partial close? 0.001)将测试近似相等,容差为0.001.

要发现可以使用的容差参数的有用值的限制Math/ulp,这是一个静态方法,它取一个double并返回它与最小的较大double之间的绝对差值.

Answer 2

虽然我喜欢MichałMarczyk的解决方案,但请注意已经存在

大约=

clojure.algo.generic.math-functions中定义的函数.样品用法:

clojuree.o=> (approx= 1.41 (sqrt 2) 1e-2)
true
clojuree.o=> (approx= 1.41 (sqrt 2) 1e-4)
false