src/Comparisons.hs

   1 module Comparisons
   2 where
   3
   4
   5 almost_equals :: Double -> Double -> Bool
   6 almost_equals x y = (abs (x - y)) < 0.0001
   7
   8 infix 4 ~=
   9 (~=) :: Double -> Double -> Bool
  10 (~=) = almost_equals