-- Helper function to perform a fuzzy comparison between to floating
-- point numbers
fuzzyEqual :: (Ord a, Floating a) => a -> a -> Bool
fuzzyEqual a b = abs (a - b) < 0.000001
fuzzyEqual :: (Ord a, Floating a) => a -> a -> Bool
fuzzyEqual a b = abs (a - b) < 0.000001
fuzzyEqual a b = abs (a - b) < 0.000001