\[-\log \left(\frac{1}{x} - 1\right)\]
Test:
neg log
Bits:
128 bits
Bits error versus x
Time: 6.5 s
Input Error: 0.1
Output Error: 0.1
Log:
Profile: 🕒
\(-\log \left({\left(\sqrt{\frac{1}{x} - 1}\right)}^2\right)\)
  1. Started with
    \[-\log \left(\frac{1}{x} - 1\right)\]
    0.1
  2. Using strategy rm
    0.1
  3. Applied add-sqr-sqrt to get
    \[-\log \color{red}{\left(\frac{1}{x} - 1\right)} \leadsto -\log \color{blue}{\left({\left(\sqrt{\frac{1}{x} - 1}\right)}^2\right)}\]
    0.1

Original test:


(lambda ((x default))
  #:name "neg log"
  (- (log (- (/ 1 x) 1))))