Kahan's exp quotient

Percentage Accurate: 52.4% → 100.0%
Time: 7.5s
Alternatives: 13
Speedup: 8.8×

Specification

?
\[\begin{array}{l} \\ \frac{e^{x} - 1}{x} \end{array} \]
(FPCore (x) :precision binary64 (/ (- (exp x) 1.0) x))
double code(double x) {
	return (exp(x) - 1.0) / x;
}
real(8) function code(x)
    real(8), intent (in) :: x
    code = (exp(x) - 1.0d0) / x
end function
public static double code(double x) {
	return (Math.exp(x) - 1.0) / x;
}
def code(x):
	return (math.exp(x) - 1.0) / x
function code(x)
	return Float64(Float64(exp(x) - 1.0) / x)
end
function tmp = code(x)
	tmp = (exp(x) - 1.0) / x;
end
code[x_] := N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}

\\
\frac{e^{x} - 1}{x}
\end{array}

Sampling outcomes in binary64 precision:

Local Percentage Accuracy vs ?

The average percentage accuracy by input value. Horizontal axis shows value of an input variable; the variable is choosen in the title. Vertical axis is accuracy; higher is better. Red represent the original program, while blue represents Herbie's suggestion. These can be toggled with buttons below the plot. The line is an average while dots represent individual samples.

Accuracy vs Speed?

Herbie found 13 alternatives:

AlternativeAccuracySpeedup
The accuracy (vertical axis) and speed (horizontal axis) of each alternatives. Up and to the right is better. The red square shows the initial program, and each blue circle shows an alternative.The line shows the best available speed-accuracy tradeoffs.

Initial Program: 52.4% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{e^{x} - 1}{x} \end{array} \]
(FPCore (x) :precision binary64 (/ (- (exp x) 1.0) x))
double code(double x) {
	return (exp(x) - 1.0) / x;
}
real(8) function code(x)
    real(8), intent (in) :: x
    code = (exp(x) - 1.0d0) / x
end function
public static double code(double x) {
	return (Math.exp(x) - 1.0) / x;
}
def code(x):
	return (math.exp(x) - 1.0) / x
function code(x)
	return Float64(Float64(exp(x) - 1.0) / x)
end
function tmp = code(x)
	tmp = (exp(x) - 1.0) / x;
end
code[x_] := N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}

\\
\frac{e^{x} - 1}{x}
\end{array}

Alternative 1: 100.0% accurate, 1.0× speedup?

\[\begin{array}{l} \\ \frac{\mathsf{expm1}\left(x\right)}{x} \end{array} \]
(FPCore (x) :precision binary64 (/ (expm1 x) x))
double code(double x) {
	return expm1(x) / x;
}
public static double code(double x) {
	return Math.expm1(x) / x;
}
def code(x):
	return math.expm1(x) / x
function code(x)
	return Float64(expm1(x) / x)
end
code[x_] := N[(N[(Exp[x] - 1), $MachinePrecision] / x), $MachinePrecision]
\begin{array}{l}

\\
\frac{\mathsf{expm1}\left(x\right)}{x}
\end{array}
Derivation
  1. Initial program 55.5%

    \[\frac{e^{x} - 1}{x} \]
  2. Add Preprocessing
  3. Step-by-step derivation
    1. lift--.f64N/A

      \[\leadsto \frac{\color{blue}{e^{x} - 1}}{x} \]
    2. lift-exp.f64N/A

      \[\leadsto \frac{\color{blue}{e^{x}} - 1}{x} \]
    3. lower-expm1.f64100.0

      \[\leadsto \frac{\color{blue}{\mathsf{expm1}\left(x\right)}}{x} \]
  4. Applied rewrites100.0%

    \[\leadsto \frac{\color{blue}{\mathsf{expm1}\left(x\right)}}{x} \]
  5. Add Preprocessing

Alternative 2: 73.8% accurate, 0.8× speedup?

\[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\ \end{array} \end{array} \]
(FPCore (x)
 :precision binary64
 (if (<= (/ (- (exp x) 1.0) x) 2.0)
   (/ 1.0 (fma -0.5 x 1.0))
   (/ (* (* (* x x) (fma 0.041666666666666664 x 0.16666666666666666)) x) x)))
double code(double x) {
	double tmp;
	if (((exp(x) - 1.0) / x) <= 2.0) {
		tmp = 1.0 / fma(-0.5, x, 1.0);
	} else {
		tmp = (((x * x) * fma(0.041666666666666664, x, 0.16666666666666666)) * x) / x;
	}
	return tmp;
}
function code(x)
	tmp = 0.0
	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
		tmp = Float64(1.0 / fma(-0.5, x, 1.0));
	else
		tmp = Float64(Float64(Float64(Float64(x * x) * fma(0.041666666666666664, x, 0.16666666666666666)) * x) / x);
	end
	return tmp
end
code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], N[(1.0 / N[(-0.5 * x + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision] / x), $MachinePrecision]]
\begin{array}{l}

\\
\begin{array}{l}
\mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
\;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\

\mathbf{else}:\\
\;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\


\end{array}
\end{array}
Derivation
  1. Split input into 2 regimes
  2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

    1. Initial program 40.4%

      \[\frac{e^{x} - 1}{x} \]
    2. Add Preprocessing
    3. Taylor expanded in x around 0

      \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
    4. Step-by-step derivation
      1. +-commutativeN/A

        \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
      2. *-commutativeN/A

        \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
      3. lower-fma.f64N/A

        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
      4. +-commutativeN/A

        \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
      5. *-commutativeN/A

        \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
      6. lower-fma.f64N/A

        \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
      7. +-commutativeN/A

        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
      8. lower-fma.f6463.0

        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
    5. Applied rewrites63.0%

      \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
    6. Step-by-step derivation
      1. Applied rewrites63.0%

        \[\leadsto \frac{1}{\color{blue}{\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)}}} \]
      2. Taylor expanded in x around 0

        \[\leadsto \frac{1}{1 + \color{blue}{\frac{-1}{2} \cdot x}} \]
      3. Step-by-step derivation
        1. Applied rewrites69.3%

          \[\leadsto \frac{1}{\mathsf{fma}\left(-0.5, \color{blue}{x}, 1\right)} \]

        if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

        1. Initial program 100.0%

          \[\frac{e^{x} - 1}{x} \]
        2. Add Preprocessing
        3. Taylor expanded in x around 0

          \[\leadsto \frac{\color{blue}{x \cdot \left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right)}}{x} \]
        4. Step-by-step derivation
          1. *-commutativeN/A

            \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
          2. lower-*.f64N/A

            \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
          3. +-commutativeN/A

            \[\leadsto \frac{\color{blue}{\left(x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1\right)} \cdot x}{x} \]
          4. *-commutativeN/A

            \[\leadsto \frac{\left(\color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1\right) \cdot x}{x} \]
          5. lower-fma.f64N/A

            \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \cdot x}{x} \]
          6. +-commutativeN/A

            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \cdot x}{x} \]
          7. *-commutativeN/A

            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \cdot x}{x} \]
          8. lower-fma.f64N/A

            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \cdot x}{x} \]
          9. +-commutativeN/A

            \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \cdot x}{x} \]
          10. lower-fma.f6481.0

            \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
        5. Applied rewrites81.0%

          \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}}{x} \]
        6. Step-by-step derivation
          1. Applied rewrites81.0%

            \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\frac{0.027777777777777776 - 0.001736111111111111 \cdot \left(x \cdot x\right)}{0.16666666666666666 - 0.041666666666666664 \cdot x}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
          2. Taylor expanded in x around inf

            \[\leadsto \frac{\left({x}^{3} \cdot \left(\frac{1}{24} + \frac{1}{6} \cdot \frac{1}{x}\right)\right) \cdot x}{x} \]
          3. Step-by-step derivation
            1. Applied rewrites81.0%

              \[\leadsto \frac{\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right) \cdot \left(x \cdot x\right)\right) \cdot x}{x} \]
          4. Recombined 2 regimes into one program.
          5. Final simplification72.3%

            \[\leadsto \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\ \end{array} \]
          6. Add Preprocessing

          Alternative 3: 72.3% accurate, 0.8× speedup?

          \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 0.005:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{else}:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)\\ \end{array} \end{array} \]
          (FPCore (x)
           :precision binary64
           (if (<= (/ (- (exp x) 1.0) x) 0.005)
             (/ 1.0 (fma -0.5 x 1.0))
             (fma (fma (fma 0.041666666666666664 x 0.16666666666666666) x 0.5) x 1.0)))
          double code(double x) {
          	double tmp;
          	if (((exp(x) - 1.0) / x) <= 0.005) {
          		tmp = 1.0 / fma(-0.5, x, 1.0);
          	} else {
          		tmp = fma(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5), x, 1.0);
          	}
          	return tmp;
          }
          
          function code(x)
          	tmp = 0.0
          	if (Float64(Float64(exp(x) - 1.0) / x) <= 0.005)
          		tmp = Float64(1.0 / fma(-0.5, x, 1.0));
          	else
          		tmp = fma(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5), x, 1.0);
          	end
          	return tmp
          end
          
          code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 0.005], N[(1.0 / N[(-0.5 * x + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision] * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision]]
          
          \begin{array}{l}
          
          \\
          \begin{array}{l}
          \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 0.005:\\
          \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\
          
          \mathbf{else}:\\
          \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)\\
          
          
          \end{array}
          \end{array}
          
          Derivation
          1. Split input into 2 regimes
          2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 0.0050000000000000001

            1. Initial program 39.7%

              \[\frac{e^{x} - 1}{x} \]
            2. Add Preprocessing
            3. Taylor expanded in x around 0

              \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
            4. Step-by-step derivation
              1. +-commutativeN/A

                \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
              2. *-commutativeN/A

                \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
              3. lower-fma.f64N/A

                \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
              4. +-commutativeN/A

                \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
              5. *-commutativeN/A

                \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
              6. lower-fma.f64N/A

                \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
              7. +-commutativeN/A

                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
              8. lower-fma.f6462.7

                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
            5. Applied rewrites62.7%

              \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
            6. Step-by-step derivation
              1. Applied rewrites62.7%

                \[\leadsto \frac{1}{\color{blue}{\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)}}} \]
              2. Taylor expanded in x around 0

                \[\leadsto \frac{1}{1 + \color{blue}{\frac{-1}{2} \cdot x}} \]
              3. Step-by-step derivation
                1. Applied rewrites69.3%

                  \[\leadsto \frac{1}{\mathsf{fma}\left(-0.5, \color{blue}{x}, 1\right)} \]

                if 0.0050000000000000001 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                1. Initial program 99.2%

                  \[\frac{e^{x} - 1}{x} \]
                2. Add Preprocessing
                3. Taylor expanded in x around 0

                  \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                4. Step-by-step derivation
                  1. +-commutativeN/A

                    \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                  2. *-commutativeN/A

                    \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                  3. lower-fma.f64N/A

                    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                  4. +-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                  5. *-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                  6. lower-fma.f64N/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                  7. +-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                  8. lower-fma.f6474.3

                    \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                5. Applied rewrites74.3%

                  \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
              4. Recombined 2 regimes into one program.
              5. Add Preprocessing

              Alternative 4: 72.0% accurate, 0.8× speedup?

              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{else}:\\ \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\\ \end{array} \end{array} \]
              (FPCore (x)
               :precision binary64
               (if (<= (/ (- (exp x) 1.0) x) 2.0)
                 (/ 1.0 (fma -0.5 x 1.0))
                 (* (fma (fma 0.041666666666666664 x 0.16666666666666666) x 0.5) x)))
              double code(double x) {
              	double tmp;
              	if (((exp(x) - 1.0) / x) <= 2.0) {
              		tmp = 1.0 / fma(-0.5, x, 1.0);
              	} else {
              		tmp = fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5) * x;
              	}
              	return tmp;
              }
              
              function code(x)
              	tmp = 0.0
              	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
              		tmp = Float64(1.0 / fma(-0.5, x, 1.0));
              	else
              		tmp = Float64(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5) * x);
              	end
              	return tmp
              end
              
              code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], N[(1.0 / N[(-0.5 * x + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision] * x + 0.5), $MachinePrecision] * x), $MachinePrecision]]
              
              \begin{array}{l}
              
              \\
              \begin{array}{l}
              \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
              \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\
              
              \mathbf{else}:\\
              \;\;\;\;\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\\
              
              
              \end{array}
              \end{array}
              
              Derivation
              1. Split input into 2 regimes
              2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

                1. Initial program 40.4%

                  \[\frac{e^{x} - 1}{x} \]
                2. Add Preprocessing
                3. Taylor expanded in x around 0

                  \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                4. Step-by-step derivation
                  1. +-commutativeN/A

                    \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                  2. *-commutativeN/A

                    \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                  3. lower-fma.f64N/A

                    \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                  4. +-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                  5. *-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                  6. lower-fma.f64N/A

                    \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                  7. +-commutativeN/A

                    \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                  8. lower-fma.f6463.0

                    \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                5. Applied rewrites63.0%

                  \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                6. Step-by-step derivation
                  1. Applied rewrites63.0%

                    \[\leadsto \frac{1}{\color{blue}{\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)}}} \]
                  2. Taylor expanded in x around 0

                    \[\leadsto \frac{1}{1 + \color{blue}{\frac{-1}{2} \cdot x}} \]
                  3. Step-by-step derivation
                    1. Applied rewrites69.3%

                      \[\leadsto \frac{1}{\mathsf{fma}\left(-0.5, \color{blue}{x}, 1\right)} \]

                    if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                    1. Initial program 100.0%

                      \[\frac{e^{x} - 1}{x} \]
                    2. Add Preprocessing
                    3. Taylor expanded in x around 0

                      \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                    4. Step-by-step derivation
                      1. +-commutativeN/A

                        \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                      2. *-commutativeN/A

                        \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                      3. lower-fma.f64N/A

                        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                      4. +-commutativeN/A

                        \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                      5. *-commutativeN/A

                        \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                      6. lower-fma.f64N/A

                        \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                      7. +-commutativeN/A

                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                      8. lower-fma.f6473.9

                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                    5. Applied rewrites73.9%

                      \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                    6. Taylor expanded in x around inf

                      \[\leadsto {x}^{3} \cdot \color{blue}{\left(\frac{1}{24} + \left(\frac{\frac{1}{2}}{{x}^{2}} + \frac{1}{6} \cdot \frac{1}{x}\right)\right)} \]
                    7. Step-by-step derivation
                      1. Applied rewrites73.9%

                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot \color{blue}{x} \]
                    8. Recombined 2 regimes into one program.
                    9. Add Preprocessing

                    Alternative 5: 68.3% accurate, 0.8× speedup?

                    \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;1\\ \mathbf{else}:\\ \;\;\;\;\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right) \cdot x\right) \cdot x\\ \end{array} \end{array} \]
                    (FPCore (x)
                     :precision binary64
                     (if (<= (/ (- (exp x) 1.0) x) 2.0)
                       1.0
                       (* (* (fma 0.041666666666666664 x 0.16666666666666666) x) x)))
                    double code(double x) {
                    	double tmp;
                    	if (((exp(x) - 1.0) / x) <= 2.0) {
                    		tmp = 1.0;
                    	} else {
                    		tmp = (fma(0.041666666666666664, x, 0.16666666666666666) * x) * x;
                    	}
                    	return tmp;
                    }
                    
                    function code(x)
                    	tmp = 0.0
                    	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
                    		tmp = 1.0;
                    	else
                    		tmp = Float64(Float64(fma(0.041666666666666664, x, 0.16666666666666666) * x) * x);
                    	end
                    	return tmp
                    end
                    
                    code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], 1.0, N[(N[(N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision]]
                    
                    \begin{array}{l}
                    
                    \\
                    \begin{array}{l}
                    \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
                    \;\;\;\;1\\
                    
                    \mathbf{else}:\\
                    \;\;\;\;\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right) \cdot x\right) \cdot x\\
                    
                    
                    \end{array}
                    \end{array}
                    
                    Derivation
                    1. Split input into 2 regimes
                    2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

                      1. Initial program 40.4%

                        \[\frac{e^{x} - 1}{x} \]
                      2. Add Preprocessing
                      3. Taylor expanded in x around 0

                        \[\leadsto \color{blue}{1} \]
                      4. Step-by-step derivation
                        1. Applied rewrites63.9%

                          \[\leadsto \color{blue}{1} \]

                        if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                        1. Initial program 100.0%

                          \[\frac{e^{x} - 1}{x} \]
                        2. Add Preprocessing
                        3. Taylor expanded in x around 0

                          \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                        4. Step-by-step derivation
                          1. +-commutativeN/A

                            \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                          2. *-commutativeN/A

                            \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                          3. lower-fma.f64N/A

                            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                          4. +-commutativeN/A

                            \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                          5. *-commutativeN/A

                            \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                          6. lower-fma.f64N/A

                            \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                          7. +-commutativeN/A

                            \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                          8. lower-fma.f6473.9

                            \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                        5. Applied rewrites73.9%

                          \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                        6. Taylor expanded in x around inf

                          \[\leadsto {x}^{3} \cdot \color{blue}{\left(\frac{1}{24} + \frac{1}{6} \cdot \frac{1}{x}\right)} \]
                        7. Step-by-step derivation
                          1. Applied rewrites73.9%

                            \[\leadsto \left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right) \cdot x\right) \cdot \color{blue}{x} \]
                        8. Recombined 2 regimes into one program.
                        9. Add Preprocessing

                        Alternative 6: 68.3% accurate, 0.8× speedup?

                        \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;1\\ \mathbf{else}:\\ \;\;\;\;\left(\left(0.041666666666666664 \cdot x\right) \cdot x\right) \cdot x\\ \end{array} \end{array} \]
                        (FPCore (x)
                         :precision binary64
                         (if (<= (/ (- (exp x) 1.0) x) 2.0)
                           1.0
                           (* (* (* 0.041666666666666664 x) x) x)))
                        double code(double x) {
                        	double tmp;
                        	if (((exp(x) - 1.0) / x) <= 2.0) {
                        		tmp = 1.0;
                        	} else {
                        		tmp = ((0.041666666666666664 * x) * x) * x;
                        	}
                        	return tmp;
                        }
                        
                        real(8) function code(x)
                            real(8), intent (in) :: x
                            real(8) :: tmp
                            if (((exp(x) - 1.0d0) / x) <= 2.0d0) then
                                tmp = 1.0d0
                            else
                                tmp = ((0.041666666666666664d0 * x) * x) * x
                            end if
                            code = tmp
                        end function
                        
                        public static double code(double x) {
                        	double tmp;
                        	if (((Math.exp(x) - 1.0) / x) <= 2.0) {
                        		tmp = 1.0;
                        	} else {
                        		tmp = ((0.041666666666666664 * x) * x) * x;
                        	}
                        	return tmp;
                        }
                        
                        def code(x):
                        	tmp = 0
                        	if ((math.exp(x) - 1.0) / x) <= 2.0:
                        		tmp = 1.0
                        	else:
                        		tmp = ((0.041666666666666664 * x) * x) * x
                        	return tmp
                        
                        function code(x)
                        	tmp = 0.0
                        	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
                        		tmp = 1.0;
                        	else
                        		tmp = Float64(Float64(Float64(0.041666666666666664 * x) * x) * x);
                        	end
                        	return tmp
                        end
                        
                        function tmp_2 = code(x)
                        	tmp = 0.0;
                        	if (((exp(x) - 1.0) / x) <= 2.0)
                        		tmp = 1.0;
                        	else
                        		tmp = ((0.041666666666666664 * x) * x) * x;
                        	end
                        	tmp_2 = tmp;
                        end
                        
                        code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], 1.0, N[(N[(N[(0.041666666666666664 * x), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision]]
                        
                        \begin{array}{l}
                        
                        \\
                        \begin{array}{l}
                        \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
                        \;\;\;\;1\\
                        
                        \mathbf{else}:\\
                        \;\;\;\;\left(\left(0.041666666666666664 \cdot x\right) \cdot x\right) \cdot x\\
                        
                        
                        \end{array}
                        \end{array}
                        
                        Derivation
                        1. Split input into 2 regimes
                        2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

                          1. Initial program 40.4%

                            \[\frac{e^{x} - 1}{x} \]
                          2. Add Preprocessing
                          3. Taylor expanded in x around 0

                            \[\leadsto \color{blue}{1} \]
                          4. Step-by-step derivation
                            1. Applied rewrites63.9%

                              \[\leadsto \color{blue}{1} \]

                            if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                            1. Initial program 100.0%

                              \[\frac{e^{x} - 1}{x} \]
                            2. Add Preprocessing
                            3. Taylor expanded in x around 0

                              \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                            4. Step-by-step derivation
                              1. +-commutativeN/A

                                \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                              2. *-commutativeN/A

                                \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                              3. lower-fma.f64N/A

                                \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                              4. +-commutativeN/A

                                \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                              5. *-commutativeN/A

                                \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                              6. lower-fma.f64N/A

                                \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                              7. +-commutativeN/A

                                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                              8. lower-fma.f6473.9

                                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                            5. Applied rewrites73.9%

                              \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                            6. Taylor expanded in x around inf

                              \[\leadsto {x}^{3} \cdot \color{blue}{\left(\frac{1}{24} + \left(\frac{\frac{1}{2}}{{x}^{2}} + \frac{1}{6} \cdot \frac{1}{x}\right)\right)} \]
                            7. Step-by-step derivation
                              1. Applied rewrites73.9%

                                \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot \color{blue}{x} \]
                              2. Taylor expanded in x around inf

                                \[\leadsto \left(\frac{1}{24} \cdot {x}^{2}\right) \cdot x \]
                              3. Step-by-step derivation
                                1. Applied rewrites73.9%

                                  \[\leadsto \left(\left(0.041666666666666664 \cdot x\right) \cdot x\right) \cdot x \]
                              4. Recombined 2 regimes into one program.
                              5. Add Preprocessing

                              Alternative 7: 64.4% accurate, 0.9× speedup?

                              \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;1\\ \mathbf{else}:\\ \;\;\;\;\left(x \cdot x\right) \cdot 0.16666666666666666\\ \end{array} \end{array} \]
                              (FPCore (x)
                               :precision binary64
                               (if (<= (/ (- (exp x) 1.0) x) 2.0) 1.0 (* (* x x) 0.16666666666666666)))
                              double code(double x) {
                              	double tmp;
                              	if (((exp(x) - 1.0) / x) <= 2.0) {
                              		tmp = 1.0;
                              	} else {
                              		tmp = (x * x) * 0.16666666666666666;
                              	}
                              	return tmp;
                              }
                              
                              real(8) function code(x)
                                  real(8), intent (in) :: x
                                  real(8) :: tmp
                                  if (((exp(x) - 1.0d0) / x) <= 2.0d0) then
                                      tmp = 1.0d0
                                  else
                                      tmp = (x * x) * 0.16666666666666666d0
                                  end if
                                  code = tmp
                              end function
                              
                              public static double code(double x) {
                              	double tmp;
                              	if (((Math.exp(x) - 1.0) / x) <= 2.0) {
                              		tmp = 1.0;
                              	} else {
                              		tmp = (x * x) * 0.16666666666666666;
                              	}
                              	return tmp;
                              }
                              
                              def code(x):
                              	tmp = 0
                              	if ((math.exp(x) - 1.0) / x) <= 2.0:
                              		tmp = 1.0
                              	else:
                              		tmp = (x * x) * 0.16666666666666666
                              	return tmp
                              
                              function code(x)
                              	tmp = 0.0
                              	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
                              		tmp = 1.0;
                              	else
                              		tmp = Float64(Float64(x * x) * 0.16666666666666666);
                              	end
                              	return tmp
                              end
                              
                              function tmp_2 = code(x)
                              	tmp = 0.0;
                              	if (((exp(x) - 1.0) / x) <= 2.0)
                              		tmp = 1.0;
                              	else
                              		tmp = (x * x) * 0.16666666666666666;
                              	end
                              	tmp_2 = tmp;
                              end
                              
                              code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], 1.0, N[(N[(x * x), $MachinePrecision] * 0.16666666666666666), $MachinePrecision]]
                              
                              \begin{array}{l}
                              
                              \\
                              \begin{array}{l}
                              \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
                              \;\;\;\;1\\
                              
                              \mathbf{else}:\\
                              \;\;\;\;\left(x \cdot x\right) \cdot 0.16666666666666666\\
                              
                              
                              \end{array}
                              \end{array}
                              
                              Derivation
                              1. Split input into 2 regimes
                              2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

                                1. Initial program 40.4%

                                  \[\frac{e^{x} - 1}{x} \]
                                2. Add Preprocessing
                                3. Taylor expanded in x around 0

                                  \[\leadsto \color{blue}{1} \]
                                4. Step-by-step derivation
                                  1. Applied rewrites63.9%

                                    \[\leadsto \color{blue}{1} \]

                                  if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                                  1. Initial program 100.0%

                                    \[\frac{e^{x} - 1}{x} \]
                                  2. Add Preprocessing
                                  3. Taylor expanded in x around 0

                                    \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right)} \]
                                  4. Step-by-step derivation
                                    1. +-commutativeN/A

                                      \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right) + 1} \]
                                    2. *-commutativeN/A

                                      \[\leadsto \color{blue}{\left(\frac{1}{2} + \frac{1}{6} \cdot x\right) \cdot x} + 1 \]
                                    3. lower-fma.f64N/A

                                      \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + \frac{1}{6} \cdot x, x, 1\right)} \]
                                    4. +-commutativeN/A

                                      \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{6} \cdot x + \frac{1}{2}}, x, 1\right) \]
                                    5. lower-fma.f6455.4

                                      \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.16666666666666666, x, 0.5\right)}, x, 1\right) \]
                                  5. Applied rewrites55.4%

                                    \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right)} \]
                                  6. Taylor expanded in x around inf

                                    \[\leadsto \frac{1}{6} \cdot \color{blue}{{x}^{2}} \]
                                  7. Step-by-step derivation
                                    1. Applied rewrites56.6%

                                      \[\leadsto \left(x \cdot x\right) \cdot \color{blue}{0.16666666666666666} \]
                                  8. Recombined 2 regimes into one program.
                                  9. Add Preprocessing

                                  Alternative 8: 64.4% accurate, 0.9× speedup?

                                  \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\ \;\;\;\;1\\ \mathbf{else}:\\ \;\;\;\;\left(0.16666666666666666 \cdot x\right) \cdot x\\ \end{array} \end{array} \]
                                  (FPCore (x)
                                   :precision binary64
                                   (if (<= (/ (- (exp x) 1.0) x) 2.0) 1.0 (* (* 0.16666666666666666 x) x)))
                                  double code(double x) {
                                  	double tmp;
                                  	if (((exp(x) - 1.0) / x) <= 2.0) {
                                  		tmp = 1.0;
                                  	} else {
                                  		tmp = (0.16666666666666666 * x) * x;
                                  	}
                                  	return tmp;
                                  }
                                  
                                  real(8) function code(x)
                                      real(8), intent (in) :: x
                                      real(8) :: tmp
                                      if (((exp(x) - 1.0d0) / x) <= 2.0d0) then
                                          tmp = 1.0d0
                                      else
                                          tmp = (0.16666666666666666d0 * x) * x
                                      end if
                                      code = tmp
                                  end function
                                  
                                  public static double code(double x) {
                                  	double tmp;
                                  	if (((Math.exp(x) - 1.0) / x) <= 2.0) {
                                  		tmp = 1.0;
                                  	} else {
                                  		tmp = (0.16666666666666666 * x) * x;
                                  	}
                                  	return tmp;
                                  }
                                  
                                  def code(x):
                                  	tmp = 0
                                  	if ((math.exp(x) - 1.0) / x) <= 2.0:
                                  		tmp = 1.0
                                  	else:
                                  		tmp = (0.16666666666666666 * x) * x
                                  	return tmp
                                  
                                  function code(x)
                                  	tmp = 0.0
                                  	if (Float64(Float64(exp(x) - 1.0) / x) <= 2.0)
                                  		tmp = 1.0;
                                  	else
                                  		tmp = Float64(Float64(0.16666666666666666 * x) * x);
                                  	end
                                  	return tmp
                                  end
                                  
                                  function tmp_2 = code(x)
                                  	tmp = 0.0;
                                  	if (((exp(x) - 1.0) / x) <= 2.0)
                                  		tmp = 1.0;
                                  	else
                                  		tmp = (0.16666666666666666 * x) * x;
                                  	end
                                  	tmp_2 = tmp;
                                  end
                                  
                                  code[x_] := If[LessEqual[N[(N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision] / x), $MachinePrecision], 2.0], 1.0, N[(N[(0.16666666666666666 * x), $MachinePrecision] * x), $MachinePrecision]]
                                  
                                  \begin{array}{l}
                                  
                                  \\
                                  \begin{array}{l}
                                  \mathbf{if}\;\frac{e^{x} - 1}{x} \leq 2:\\
                                  \;\;\;\;1\\
                                  
                                  \mathbf{else}:\\
                                  \;\;\;\;\left(0.16666666666666666 \cdot x\right) \cdot x\\
                                  
                                  
                                  \end{array}
                                  \end{array}
                                  
                                  Derivation
                                  1. Split input into 2 regimes
                                  2. if (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x) < 2

                                    1. Initial program 40.4%

                                      \[\frac{e^{x} - 1}{x} \]
                                    2. Add Preprocessing
                                    3. Taylor expanded in x around 0

                                      \[\leadsto \color{blue}{1} \]
                                    4. Step-by-step derivation
                                      1. Applied rewrites63.9%

                                        \[\leadsto \color{blue}{1} \]

                                      if 2 < (/.f64 (-.f64 (exp.f64 x) #s(literal 1 binary64)) x)

                                      1. Initial program 100.0%

                                        \[\frac{e^{x} - 1}{x} \]
                                      2. Add Preprocessing
                                      3. Taylor expanded in x around 0

                                        \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right)} \]
                                      4. Step-by-step derivation
                                        1. +-commutativeN/A

                                          \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right) + 1} \]
                                        2. *-commutativeN/A

                                          \[\leadsto \color{blue}{\left(\frac{1}{2} + \frac{1}{6} \cdot x\right) \cdot x} + 1 \]
                                        3. lower-fma.f64N/A

                                          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + \frac{1}{6} \cdot x, x, 1\right)} \]
                                        4. +-commutativeN/A

                                          \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{6} \cdot x + \frac{1}{2}}, x, 1\right) \]
                                        5. lower-fma.f6455.4

                                          \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.16666666666666666, x, 0.5\right)}, x, 1\right) \]
                                      5. Applied rewrites55.4%

                                        \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right)} \]
                                      6. Taylor expanded in x around inf

                                        \[\leadsto \frac{1}{6} \cdot \color{blue}{{x}^{2}} \]
                                      7. Step-by-step derivation
                                        1. Applied rewrites56.6%

                                          \[\leadsto \left(x \cdot x\right) \cdot \color{blue}{0.16666666666666666} \]
                                        2. Step-by-step derivation
                                          1. Applied rewrites55.4%

                                            \[\leadsto \left(0.16666666666666666 \cdot x\right) \cdot x \]
                                        3. Recombined 2 regimes into one program.
                                        4. Add Preprocessing

                                        Alternative 9: 76.8% accurate, 1.0× speedup?

                                        \[\begin{array}{l} \\ \begin{array}{l} t_0 := \left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\\ \mathbf{if}\;x \leq 5 \cdot 10^{-32}:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{elif}\;x \leq 2.6 \cdot 10^{+77}:\\ \;\;\;\;\frac{\frac{t\_0 \cdot t\_0 - x \cdot x}{t\_0 - x}}{x}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\ \end{array} \end{array} \]
                                        (FPCore (x)
                                         :precision binary64
                                         (let* ((t_0
                                                 (*
                                                  (* (fma (fma 0.041666666666666664 x 0.16666666666666666) x 0.5) x)
                                                  x)))
                                           (if (<= x 5e-32)
                                             (/ 1.0 (fma -0.5 x 1.0))
                                             (if (<= x 2.6e+77)
                                               (/ (/ (- (* t_0 t_0) (* x x)) (- t_0 x)) x)
                                               (/
                                                (* (* (* x x) (fma 0.041666666666666664 x 0.16666666666666666)) x)
                                                x)))))
                                        double code(double x) {
                                        	double t_0 = (fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5) * x) * x;
                                        	double tmp;
                                        	if (x <= 5e-32) {
                                        		tmp = 1.0 / fma(-0.5, x, 1.0);
                                        	} else if (x <= 2.6e+77) {
                                        		tmp = (((t_0 * t_0) - (x * x)) / (t_0 - x)) / x;
                                        	} else {
                                        		tmp = (((x * x) * fma(0.041666666666666664, x, 0.16666666666666666)) * x) / x;
                                        	}
                                        	return tmp;
                                        }
                                        
                                        function code(x)
                                        	t_0 = Float64(Float64(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5) * x) * x)
                                        	tmp = 0.0
                                        	if (x <= 5e-32)
                                        		tmp = Float64(1.0 / fma(-0.5, x, 1.0));
                                        	elseif (x <= 2.6e+77)
                                        		tmp = Float64(Float64(Float64(Float64(t_0 * t_0) - Float64(x * x)) / Float64(t_0 - x)) / x);
                                        	else
                                        		tmp = Float64(Float64(Float64(Float64(x * x) * fma(0.041666666666666664, x, 0.16666666666666666)) * x) / x);
                                        	end
                                        	return tmp
                                        end
                                        
                                        code[x_] := Block[{t$95$0 = N[(N[(N[(N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision] * x + 0.5), $MachinePrecision] * x), $MachinePrecision] * x), $MachinePrecision]}, If[LessEqual[x, 5e-32], N[(1.0 / N[(-0.5 * x + 1.0), $MachinePrecision]), $MachinePrecision], If[LessEqual[x, 2.6e+77], N[(N[(N[(N[(t$95$0 * t$95$0), $MachinePrecision] - N[(x * x), $MachinePrecision]), $MachinePrecision] / N[(t$95$0 - x), $MachinePrecision]), $MachinePrecision] / x), $MachinePrecision], N[(N[(N[(N[(x * x), $MachinePrecision] * N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision]), $MachinePrecision] * x), $MachinePrecision] / x), $MachinePrecision]]]]
                                        
                                        \begin{array}{l}
                                        
                                        \\
                                        \begin{array}{l}
                                        t_0 := \left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\\
                                        \mathbf{if}\;x \leq 5 \cdot 10^{-32}:\\
                                        \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\
                                        
                                        \mathbf{elif}\;x \leq 2.6 \cdot 10^{+77}:\\
                                        \;\;\;\;\frac{\frac{t\_0 \cdot t\_0 - x \cdot x}{t\_0 - x}}{x}\\
                                        
                                        \mathbf{else}:\\
                                        \;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\
                                        
                                        
                                        \end{array}
                                        \end{array}
                                        
                                        Derivation
                                        1. Split input into 3 regimes
                                        2. if x < 5e-32

                                          1. Initial program 39.9%

                                            \[\frac{e^{x} - 1}{x} \]
                                          2. Add Preprocessing
                                          3. Taylor expanded in x around 0

                                            \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                                          4. Step-by-step derivation
                                            1. +-commutativeN/A

                                              \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                                            2. *-commutativeN/A

                                              \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                                            3. lower-fma.f64N/A

                                              \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                                            4. +-commutativeN/A

                                              \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                                            5. *-commutativeN/A

                                              \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                                            6. lower-fma.f64N/A

                                              \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                                            7. +-commutativeN/A

                                              \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                                            8. lower-fma.f6462.5

                                              \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                                          5. Applied rewrites62.5%

                                            \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                                          6. Step-by-step derivation
                                            1. Applied rewrites62.5%

                                              \[\leadsto \frac{1}{\color{blue}{\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)}}} \]
                                            2. Taylor expanded in x around 0

                                              \[\leadsto \frac{1}{1 + \color{blue}{\frac{-1}{2} \cdot x}} \]
                                            3. Step-by-step derivation
                                              1. Applied rewrites69.2%

                                                \[\leadsto \frac{1}{\mathsf{fma}\left(-0.5, \color{blue}{x}, 1\right)} \]

                                              if 5e-32 < x < 2.6000000000000002e77

                                              1. Initial program 91.1%

                                                \[\frac{e^{x} - 1}{x} \]
                                              2. Add Preprocessing
                                              3. Taylor expanded in x around 0

                                                \[\leadsto \frac{\color{blue}{x \cdot \left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right)}}{x} \]
                                              4. Step-by-step derivation
                                                1. *-commutativeN/A

                                                  \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                2. lower-*.f64N/A

                                                  \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                3. +-commutativeN/A

                                                  \[\leadsto \frac{\color{blue}{\left(x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1\right)} \cdot x}{x} \]
                                                4. *-commutativeN/A

                                                  \[\leadsto \frac{\left(\color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1\right) \cdot x}{x} \]
                                                5. lower-fma.f64N/A

                                                  \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \cdot x}{x} \]
                                                6. +-commutativeN/A

                                                  \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \cdot x}{x} \]
                                                7. *-commutativeN/A

                                                  \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \cdot x}{x} \]
                                                8. lower-fma.f64N/A

                                                  \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \cdot x}{x} \]
                                                9. +-commutativeN/A

                                                  \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \cdot x}{x} \]
                                                10. lower-fma.f6424.4

                                                  \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
                                              5. Applied rewrites24.4%

                                                \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}}{x} \]
                                              6. Step-by-step derivation
                                                1. Applied rewrites52.4%

                                                  \[\leadsto \frac{\frac{\left(\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\right) \cdot \left(\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\right) - x \cdot x}{\color{blue}{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x - x}}}{x} \]

                                                if 2.6000000000000002e77 < x

                                                1. Initial program 100.0%

                                                  \[\frac{e^{x} - 1}{x} \]
                                                2. Add Preprocessing
                                                3. Taylor expanded in x around 0

                                                  \[\leadsto \frac{\color{blue}{x \cdot \left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right)}}{x} \]
                                                4. Step-by-step derivation
                                                  1. *-commutativeN/A

                                                    \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                  2. lower-*.f64N/A

                                                    \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                  3. +-commutativeN/A

                                                    \[\leadsto \frac{\color{blue}{\left(x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1\right)} \cdot x}{x} \]
                                                  4. *-commutativeN/A

                                                    \[\leadsto \frac{\left(\color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1\right) \cdot x}{x} \]
                                                  5. lower-fma.f64N/A

                                                    \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \cdot x}{x} \]
                                                  6. +-commutativeN/A

                                                    \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \cdot x}{x} \]
                                                  7. *-commutativeN/A

                                                    \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \cdot x}{x} \]
                                                  8. lower-fma.f64N/A

                                                    \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \cdot x}{x} \]
                                                  9. +-commutativeN/A

                                                    \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \cdot x}{x} \]
                                                  10. lower-fma.f64100.0

                                                    \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
                                                5. Applied rewrites100.0%

                                                  \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}}{x} \]
                                                6. Step-by-step derivation
                                                  1. Applied rewrites100.0%

                                                    \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\frac{0.027777777777777776 - 0.001736111111111111 \cdot \left(x \cdot x\right)}{0.16666666666666666 - 0.041666666666666664 \cdot x}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
                                                  2. Taylor expanded in x around inf

                                                    \[\leadsto \frac{\left({x}^{3} \cdot \left(\frac{1}{24} + \frac{1}{6} \cdot \frac{1}{x}\right)\right) \cdot x}{x} \]
                                                  3. Step-by-step derivation
                                                    1. Applied rewrites100.0%

                                                      \[\leadsto \frac{\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right) \cdot \left(x \cdot x\right)\right) \cdot x}{x} \]
                                                  4. Recombined 3 regimes into one program.
                                                  5. Final simplification74.3%

                                                    \[\leadsto \begin{array}{l} \mathbf{if}\;x \leq 5 \cdot 10^{-32}:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{elif}\;x \leq 2.6 \cdot 10^{+77}:\\ \;\;\;\;\frac{\frac{\left(\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\right) \cdot \left(\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x\right) - x \cdot x}{\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right) \cdot x\right) \cdot x - x}}{x}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(\left(x \cdot x\right) \cdot \mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)\right) \cdot x}{x}\\ \end{array} \]
                                                  6. Add Preprocessing

                                                  Alternative 10: 74.1% accurate, 2.8× speedup?

                                                  \[\begin{array}{l} \\ \begin{array}{l} \mathbf{if}\;x \leq -200:\\ \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}{x}\\ \end{array} \end{array} \]
                                                  (FPCore (x)
                                                   :precision binary64
                                                   (if (<= x -200.0)
                                                     (/ 1.0 (fma -0.5 x 1.0))
                                                     (/
                                                      (*
                                                       (fma (fma (fma 0.041666666666666664 x 0.16666666666666666) x 0.5) x 1.0)
                                                       x)
                                                      x)))
                                                  double code(double x) {
                                                  	double tmp;
                                                  	if (x <= -200.0) {
                                                  		tmp = 1.0 / fma(-0.5, x, 1.0);
                                                  	} else {
                                                  		tmp = (fma(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5), x, 1.0) * x) / x;
                                                  	}
                                                  	return tmp;
                                                  }
                                                  
                                                  function code(x)
                                                  	tmp = 0.0
                                                  	if (x <= -200.0)
                                                  		tmp = Float64(1.0 / fma(-0.5, x, 1.0));
                                                  	else
                                                  		tmp = Float64(Float64(fma(fma(fma(0.041666666666666664, x, 0.16666666666666666), x, 0.5), x, 1.0) * x) / x);
                                                  	end
                                                  	return tmp
                                                  end
                                                  
                                                  code[x_] := If[LessEqual[x, -200.0], N[(1.0 / N[(-0.5 * x + 1.0), $MachinePrecision]), $MachinePrecision], N[(N[(N[(N[(N[(0.041666666666666664 * x + 0.16666666666666666), $MachinePrecision] * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision] * x), $MachinePrecision] / x), $MachinePrecision]]
                                                  
                                                  \begin{array}{l}
                                                  
                                                  \\
                                                  \begin{array}{l}
                                                  \mathbf{if}\;x \leq -200:\\
                                                  \;\;\;\;\frac{1}{\mathsf{fma}\left(-0.5, x, 1\right)}\\
                                                  
                                                  \mathbf{else}:\\
                                                  \;\;\;\;\frac{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}{x}\\
                                                  
                                                  
                                                  \end{array}
                                                  \end{array}
                                                  
                                                  Derivation
                                                  1. Split input into 2 regimes
                                                  2. if x < -200

                                                    1. Initial program 100.0%

                                                      \[\frac{e^{x} - 1}{x} \]
                                                    2. Add Preprocessing
                                                    3. Taylor expanded in x around 0

                                                      \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                                                    4. Step-by-step derivation
                                                      1. +-commutativeN/A

                                                        \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                                                      2. *-commutativeN/A

                                                        \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                                                      3. lower-fma.f64N/A

                                                        \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                                                      4. +-commutativeN/A

                                                        \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                                                      5. *-commutativeN/A

                                                        \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                                                      6. lower-fma.f64N/A

                                                        \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                                                      7. +-commutativeN/A

                                                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                                                      8. lower-fma.f641.2

                                                        \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                                                    5. Applied rewrites1.2%

                                                      \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                                                    6. Step-by-step derivation
                                                      1. Applied rewrites1.2%

                                                        \[\leadsto \frac{1}{\color{blue}{\frac{1}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)}}} \]
                                                      2. Taylor expanded in x around 0

                                                        \[\leadsto \frac{1}{1 + \color{blue}{\frac{-1}{2} \cdot x}} \]
                                                      3. Step-by-step derivation
                                                        1. Applied rewrites18.8%

                                                          \[\leadsto \frac{1}{\mathsf{fma}\left(-0.5, \color{blue}{x}, 1\right)} \]

                                                        if -200 < x

                                                        1. Initial program 38.4%

                                                          \[\frac{e^{x} - 1}{x} \]
                                                        2. Add Preprocessing
                                                        3. Taylor expanded in x around 0

                                                          \[\leadsto \frac{\color{blue}{x \cdot \left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right)}}{x} \]
                                                        4. Step-by-step derivation
                                                          1. *-commutativeN/A

                                                            \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                          2. lower-*.f64N/A

                                                            \[\leadsto \frac{\color{blue}{\left(1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)\right) \cdot x}}{x} \]
                                                          3. +-commutativeN/A

                                                            \[\leadsto \frac{\color{blue}{\left(x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1\right)} \cdot x}{x} \]
                                                          4. *-commutativeN/A

                                                            \[\leadsto \frac{\left(\color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1\right) \cdot x}{x} \]
                                                          5. lower-fma.f64N/A

                                                            \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \cdot x}{x} \]
                                                          6. +-commutativeN/A

                                                            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \cdot x}{x} \]
                                                          7. *-commutativeN/A

                                                            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \cdot x}{x} \]
                                                          8. lower-fma.f64N/A

                                                            \[\leadsto \frac{\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \cdot x}{x} \]
                                                          9. +-commutativeN/A

                                                            \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \cdot x}{x} \]
                                                          10. lower-fma.f6493.1

                                                            \[\leadsto \frac{\mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \cdot x}{x} \]
                                                        5. Applied rewrites93.1%

                                                          \[\leadsto \frac{\color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right) \cdot x}}{x} \]
                                                      4. Recombined 2 regimes into one program.
                                                      5. Add Preprocessing

                                                      Alternative 11: 67.3% accurate, 6.8× speedup?

                                                      \[\begin{array}{l} \\ \mathsf{fma}\left(\left(x \cdot x\right) \cdot 0.041666666666666664, x, 1\right) \end{array} \]
                                                      (FPCore (x) :precision binary64 (fma (* (* x x) 0.041666666666666664) x 1.0))
                                                      double code(double x) {
                                                      	return fma(((x * x) * 0.041666666666666664), x, 1.0);
                                                      }
                                                      
                                                      function code(x)
                                                      	return fma(Float64(Float64(x * x) * 0.041666666666666664), x, 1.0)
                                                      end
                                                      
                                                      code[x_] := N[(N[(N[(x * x), $MachinePrecision] * 0.041666666666666664), $MachinePrecision] * x + 1.0), $MachinePrecision]
                                                      
                                                      \begin{array}{l}
                                                      
                                                      \\
                                                      \mathsf{fma}\left(\left(x \cdot x\right) \cdot 0.041666666666666664, x, 1\right)
                                                      \end{array}
                                                      
                                                      Derivation
                                                      1. Initial program 55.5%

                                                        \[\frac{e^{x} - 1}{x} \]
                                                      2. Add Preprocessing
                                                      3. Taylor expanded in x around 0

                                                        \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right)} \]
                                                      4. Step-by-step derivation
                                                        1. +-commutativeN/A

                                                          \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) + 1} \]
                                                        2. *-commutativeN/A

                                                          \[\leadsto \color{blue}{\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right)\right) \cdot x} + 1 \]
                                                        3. lower-fma.f64N/A

                                                          \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right), x, 1\right)} \]
                                                        4. +-commutativeN/A

                                                          \[\leadsto \mathsf{fma}\left(\color{blue}{x \cdot \left(\frac{1}{6} + \frac{1}{24} \cdot x\right) + \frac{1}{2}}, x, 1\right) \]
                                                        5. *-commutativeN/A

                                                          \[\leadsto \mathsf{fma}\left(\color{blue}{\left(\frac{1}{6} + \frac{1}{24} \cdot x\right) \cdot x} + \frac{1}{2}, x, 1\right) \]
                                                        6. lower-fma.f64N/A

                                                          \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(\frac{1}{6} + \frac{1}{24} \cdot x, x, \frac{1}{2}\right)}, x, 1\right) \]
                                                        7. +-commutativeN/A

                                                          \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\frac{1}{24} \cdot x + \frac{1}{6}}, x, \frac{1}{2}\right), x, 1\right) \]
                                                        8. lower-fma.f6465.8

                                                          \[\leadsto \mathsf{fma}\left(\mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right)}, x, 0.5\right), x, 1\right) \]
                                                      5. Applied rewrites65.8%

                                                        \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(\mathsf{fma}\left(0.041666666666666664, x, 0.16666666666666666\right), x, 0.5\right), x, 1\right)} \]
                                                      6. Taylor expanded in x around inf

                                                        \[\leadsto \mathsf{fma}\left(\frac{1}{24} \cdot {x}^{2}, x, 1\right) \]
                                                      7. Step-by-step derivation
                                                        1. Applied rewrites65.3%

                                                          \[\leadsto \mathsf{fma}\left(\left(x \cdot x\right) \cdot 0.041666666666666664, x, 1\right) \]
                                                        2. Add Preprocessing

                                                        Alternative 12: 64.5% accurate, 8.8× speedup?

                                                        \[\begin{array}{l} \\ \mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right) \end{array} \]
                                                        (FPCore (x) :precision binary64 (fma (fma 0.16666666666666666 x 0.5) x 1.0))
                                                        double code(double x) {
                                                        	return fma(fma(0.16666666666666666, x, 0.5), x, 1.0);
                                                        }
                                                        
                                                        function code(x)
                                                        	return fma(fma(0.16666666666666666, x, 0.5), x, 1.0)
                                                        end
                                                        
                                                        code[x_] := N[(N[(0.16666666666666666 * x + 0.5), $MachinePrecision] * x + 1.0), $MachinePrecision]
                                                        
                                                        \begin{array}{l}
                                                        
                                                        \\
                                                        \mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right)
                                                        \end{array}
                                                        
                                                        Derivation
                                                        1. Initial program 55.5%

                                                          \[\frac{e^{x} - 1}{x} \]
                                                        2. Add Preprocessing
                                                        3. Taylor expanded in x around 0

                                                          \[\leadsto \color{blue}{1 + x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right)} \]
                                                        4. Step-by-step derivation
                                                          1. +-commutativeN/A

                                                            \[\leadsto \color{blue}{x \cdot \left(\frac{1}{2} + \frac{1}{6} \cdot x\right) + 1} \]
                                                          2. *-commutativeN/A

                                                            \[\leadsto \color{blue}{\left(\frac{1}{2} + \frac{1}{6} \cdot x\right) \cdot x} + 1 \]
                                                          3. lower-fma.f64N/A

                                                            \[\leadsto \color{blue}{\mathsf{fma}\left(\frac{1}{2} + \frac{1}{6} \cdot x, x, 1\right)} \]
                                                          4. +-commutativeN/A

                                                            \[\leadsto \mathsf{fma}\left(\color{blue}{\frac{1}{6} \cdot x + \frac{1}{2}}, x, 1\right) \]
                                                          5. lower-fma.f6461.6

                                                            \[\leadsto \mathsf{fma}\left(\color{blue}{\mathsf{fma}\left(0.16666666666666666, x, 0.5\right)}, x, 1\right) \]
                                                        5. Applied rewrites61.6%

                                                          \[\leadsto \color{blue}{\mathsf{fma}\left(\mathsf{fma}\left(0.16666666666666666, x, 0.5\right), x, 1\right)} \]
                                                        6. Add Preprocessing

                                                        Alternative 13: 51.8% accurate, 115.0× speedup?

                                                        \[\begin{array}{l} \\ 1 \end{array} \]
                                                        (FPCore (x) :precision binary64 1.0)
                                                        double code(double x) {
                                                        	return 1.0;
                                                        }
                                                        
                                                        real(8) function code(x)
                                                            real(8), intent (in) :: x
                                                            code = 1.0d0
                                                        end function
                                                        
                                                        public static double code(double x) {
                                                        	return 1.0;
                                                        }
                                                        
                                                        def code(x):
                                                        	return 1.0
                                                        
                                                        function code(x)
                                                        	return 1.0
                                                        end
                                                        
                                                        function tmp = code(x)
                                                        	tmp = 1.0;
                                                        end
                                                        
                                                        code[x_] := 1.0
                                                        
                                                        \begin{array}{l}
                                                        
                                                        \\
                                                        1
                                                        \end{array}
                                                        
                                                        Derivation
                                                        1. Initial program 55.5%

                                                          \[\frac{e^{x} - 1}{x} \]
                                                        2. Add Preprocessing
                                                        3. Taylor expanded in x around 0

                                                          \[\leadsto \color{blue}{1} \]
                                                        4. Step-by-step derivation
                                                          1. Applied rewrites48.5%

                                                            \[\leadsto \color{blue}{1} \]
                                                          2. Add Preprocessing

                                                          Developer Target 1: 51.9% accurate, 0.4× speedup?

                                                          \[\begin{array}{l} \\ \begin{array}{l} t_0 := e^{x} - 1\\ \mathbf{if}\;x < 1 \land x > -1:\\ \;\;\;\;\frac{t\_0}{\log \left(e^{x}\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{t\_0}{x}\\ \end{array} \end{array} \]
                                                          (FPCore (x)
                                                           :precision binary64
                                                           (let* ((t_0 (- (exp x) 1.0)))
                                                             (if (and (< x 1.0) (> x -1.0)) (/ t_0 (log (exp x))) (/ t_0 x))))
                                                          double code(double x) {
                                                          	double t_0 = exp(x) - 1.0;
                                                          	double tmp;
                                                          	if ((x < 1.0) && (x > -1.0)) {
                                                          		tmp = t_0 / log(exp(x));
                                                          	} else {
                                                          		tmp = t_0 / x;
                                                          	}
                                                          	return tmp;
                                                          }
                                                          
                                                          real(8) function code(x)
                                                              real(8), intent (in) :: x
                                                              real(8) :: t_0
                                                              real(8) :: tmp
                                                              t_0 = exp(x) - 1.0d0
                                                              if ((x < 1.0d0) .and. (x > (-1.0d0))) then
                                                                  tmp = t_0 / log(exp(x))
                                                              else
                                                                  tmp = t_0 / x
                                                              end if
                                                              code = tmp
                                                          end function
                                                          
                                                          public static double code(double x) {
                                                          	double t_0 = Math.exp(x) - 1.0;
                                                          	double tmp;
                                                          	if ((x < 1.0) && (x > -1.0)) {
                                                          		tmp = t_0 / Math.log(Math.exp(x));
                                                          	} else {
                                                          		tmp = t_0 / x;
                                                          	}
                                                          	return tmp;
                                                          }
                                                          
                                                          def code(x):
                                                          	t_0 = math.exp(x) - 1.0
                                                          	tmp = 0
                                                          	if (x < 1.0) and (x > -1.0):
                                                          		tmp = t_0 / math.log(math.exp(x))
                                                          	else:
                                                          		tmp = t_0 / x
                                                          	return tmp
                                                          
                                                          function code(x)
                                                          	t_0 = Float64(exp(x) - 1.0)
                                                          	tmp = 0.0
                                                          	if ((x < 1.0) && (x > -1.0))
                                                          		tmp = Float64(t_0 / log(exp(x)));
                                                          	else
                                                          		tmp = Float64(t_0 / x);
                                                          	end
                                                          	return tmp
                                                          end
                                                          
                                                          function tmp_2 = code(x)
                                                          	t_0 = exp(x) - 1.0;
                                                          	tmp = 0.0;
                                                          	if ((x < 1.0) && (x > -1.0))
                                                          		tmp = t_0 / log(exp(x));
                                                          	else
                                                          		tmp = t_0 / x;
                                                          	end
                                                          	tmp_2 = tmp;
                                                          end
                                                          
                                                          code[x_] := Block[{t$95$0 = N[(N[Exp[x], $MachinePrecision] - 1.0), $MachinePrecision]}, If[And[Less[x, 1.0], Greater[x, -1.0]], N[(t$95$0 / N[Log[N[Exp[x], $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(t$95$0 / x), $MachinePrecision]]]
                                                          
                                                          \begin{array}{l}
                                                          
                                                          \\
                                                          \begin{array}{l}
                                                          t_0 := e^{x} - 1\\
                                                          \mathbf{if}\;x < 1 \land x > -1:\\
                                                          \;\;\;\;\frac{t\_0}{\log \left(e^{x}\right)}\\
                                                          
                                                          \mathbf{else}:\\
                                                          \;\;\;\;\frac{t\_0}{x}\\
                                                          
                                                          
                                                          \end{array}
                                                          \end{array}
                                                          

                                                          Reproduce

                                                          ?
                                                          herbie shell --seed 2024254 
                                                          (FPCore (x)
                                                            :name "Kahan's exp quotient"
                                                            :precision binary64
                                                          
                                                            :alt
                                                            (! :herbie-platform default (if (and (< x 1) (> x -1)) (/ (- (exp x) 1) (log (exp x))) (/ (- (exp x) 1) x)))
                                                          
                                                            (/ (- (exp x) 1.0) x))