\[\frac{e^{x} - e^{-x}}{e^{x} + e^{-x}}\]
\frac{e^{x} - e^{-x}}{e^{x} + e^{-x}}
double f(double x) {
        double r8199 = x;
        double r8200 = exp(r8199);
        double r8201 = -r8199;
        double r8202 = exp(r8201);
        double r8203 = r8200 - r8202;
        double r8204 = r8200 + r8202;
        double r8205 = r8203 / r8204;
        return r8205;
}

Reproduce

Please include this information when filing a bug report:

herbie shell --seed 2019194 +o rules:numerics
(FPCore (x)
  :name "Hyperbolic tangent"
  (/ (- (exp x) (exp (- x))) (+ (exp x) (exp (- x)))))

Backtrace

result arity mismatch; expected number of values not received expected: 2 received: 1 in: local-binding form values...: 0LC
loop/data/pavpan/nightlies/herbie/various-cleanup/src/core/extraction.rkt252
(unnamed)/data/pavpan/nightlies/herbie/various-cleanup/src/core/simplify.rkt260
simplify!/data/pavpan/nightlies/herbie/various-cleanup/src/mainloop.rkt2200
run-improve47/data/pavpan/nightlies/herbie/various-cleanup/src/mainloop.rkt3420
(unnamed)/opt/racket-7.0/collects/racket/private/more-scheme.rkt26128
run/opt/racket-7.0/share/pkgs/profile-lib/main.rkt392
profile-thunk16/opt/racket-7.0/share/pkgs/profile-lib/main.rkt90
(unnamed)/opt/racket-7.0/collects/racket/private/more-scheme.rkt26128