"Determines if two numbers are equal within a percentage difference."
(let ((abs-diff (* 0.01 percent 0.5 (+ (abs a) (abs b)))))
(< (abs (- a b)) abs-diff)))
"Determines if two numbers are equal within a percentage difference."
(let ((abs-diff (* 0.01 percent 0.5 (+ (abs a) (abs b)))))
(< (abs (- a b)) abs-diff)))