Always use reference value when computing percentage difference

data61 · May 6, 2024 · 00ca1f8 · 00ca1f8
1 parent 2ae8516
commit 00ca1f8
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -207,4 +207,4 @@ between (lo,hi) = \x -> lo <= x && x <= hi
 
 
 withinPCT :: Double -> Double -> Double -> Bool
-withinPCT pct a b = abs ((a - b) * 100 / (min `on` abs) a b)  < pct
+withinPCT pct a b = abs ((a - b) * 100 / abs b)  < pct