Add the theta tolerance and nearly_equals, nearly_ge comparisons.

diff --git a/src/Comparisons.hs b/src/Comparisons.hs
index 6d8dc70d846e08159c9c4ae6ea49b11a530a25a2..4a8144469415668327567717239844a4b1c85a22 100644 (file)
--- a/src/Comparisons.hs
+++ b/src/Comparisons.hs
@@ -8,6 +8,17 @@ where
 epsilon :: Double
 epsilon = 0.0001
 
+-- | A tiny margin of error.
+theta :: Double
+theta = 0.00000000000001
+
+-- | x almost equals y if x is within 'theta' of y.
+nearly_equals :: Double -> Double -> Bool
+nearly_equals x y = (abs (x - y)) < theta
+
+-- | Nearly greater-than or equal-to.
+nearly_ge :: Double -> Double -> Bool
+x `nearly_ge` y = (x > y) || (x `nearly_equals` y)
 
 -- | x almost equals y if x is within 'epsilon' of y.
 almost_equals :: Double -> Double -> Bool