module Comparisons
where


almost_equals :: Double -> Double -> Bool
almost_equals x y = (abs (x - y)) < 0.0001

infix 4 ~=
(~=) :: Double -> Double -> Bool
(~=) = almost_equals