From 28710758dac0a1241911c6ba296b0685b877b5e3 Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Fri, 6 May 2011 20:31:37 -0400 Subject: [PATCH] Add two new comparisons, very_positive and non_very_positive_entries. --- src/Comparisons.hs | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/src/Comparisons.hs b/src/Comparisons.hs index f4462a0..506ebab 100644 --- a/src/Comparisons.hs +++ b/src/Comparisons.hs @@ -1,10 +1,28 @@ module Comparisons where +-- | epsilon is the value that will be used in all tests that require +-- some measure of "closeness." Increasing it will make those tests +-- more tolerant. +epsilon :: Double +epsilon = 0.0001 + +-- | x almost equals y if x is within 'epsilon' of y. almost_equals :: Double -> Double -> Bool -almost_equals x y = (abs (x - y)) < 0.0001 +almost_equals x y = (abs (x - y)) < epsilon infix 4 ~= (~=) :: Double -> Double -> Bool (~=) = almost_equals + + +-- | x is very positive if it is 'epsilon' greater than zero. +very_positive :: Double -> Bool +very_positive x = x - epsilon > 0 + + +-- | Takes a list of Doubles and returns the ones which are not very +-- positive. +non_very_positive_entries :: [Double] -> [Double] +non_very_positive_entries = filter (not . very_positive) -- 2.43.2