isClose :: Double -> Double -> Bool
isClose x y =
  if x == 0 || y == 0
  then abs (x - y) < delta
  else abs (1 - x / y) < delta
  where delta = 0.0001
isClose :: Double -> Double -> Bool
isClose x y =
  if x == 0 || y == 0
  then abs (x - y) < delta
  else abs (1 - x / y) < delta
  where delta = 0.0001
isClose x y =
  if x == 0 || y == 0
  then abs (x - y) < delta
  else abs (1 - x / y) < delta
  where delta = 0.0001