jeff quadratic root 1

Percentage Accurate: 72.1% → 90.5%

Time: 5.6s

Alternatives: 19

Speedup: 1.0×

Specification

Math

\[\begin{array}{l} t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\ \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c)))))
   (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_0) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_0);
	}
	return tmp;
}

Fortran

module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, b, c)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8) :: t_0
    real(8) :: tmp
    t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
    if (b >= 0.0d0) then
        tmp = (-b - t_0) / (2.0d0 * a)
    else
        tmp = (2.0d0 * c) / (-b + t_0)
    end if
    code = tmp
end function

Java

public static double code(double a, double b, double c) {
	double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_0) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_0);
	}
	return tmp;
}

Python

def code(a, b, c):
	t_0 = math.sqrt(((b * b) - ((4.0 * a) * c)))
	tmp = 0
	if b >= 0.0:
		tmp = (-b - t_0) / (2.0 * a)
	else:
		tmp = (2.0 * c) / (-b + t_0)
	return tmp

Julia

function code(a, b, c)
	t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a));
	else
		tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0));
	end
	return tmp
end

MATLAB

function tmp_2 = code(a, b, c)
	t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	tmp = 0.0;
	if (b >= 0.0)
		tmp = (-b - t_0) / (2.0 * a);
	else
		tmp = (2.0 * c) / (-b + t_0);
	end
	tmp_2 = tmp;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]]]

Initial Program: 72.1% accurate, 1.0× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\ \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c)))))
   (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_0) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_0);
	}
	return tmp;
}

Fortran

module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, b, c)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8) :: t_0
    real(8) :: tmp
    t_0 = sqrt(((b * b) - ((4.0d0 * a) * c)))
    if (b >= 0.0d0) then
        tmp = (-b - t_0) / (2.0d0 * a)
    else
        tmp = (2.0d0 * c) / (-b + t_0)
    end if
    code = tmp
end function

Java

public static double code(double a, double b, double c) {
	double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_0) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_0);
	}
	return tmp;
}

Python

def code(a, b, c):
	t_0 = math.sqrt(((b * b) - ((4.0 * a) * c)))
	tmp = 0
	if b >= 0.0:
		tmp = (-b - t_0) / (2.0 * a)
	else:
		tmp = (2.0 * c) / (-b + t_0)
	return tmp

Julia

function code(a, b, c)
	t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a));
	else
		tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0));
	end
	return tmp
end

MATLAB

function tmp_2 = code(a, b, c)
	t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	tmp = 0.0;
	if (b >= 0.0)
		tmp = (-b - t_0) / (2.0 * a);
	else
		tmp = (2.0 * c) / (-b + t_0);
	end
	tmp_2 = tmp;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]]]

Alternative 1: 90.5% accurate, 0.7× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\\ t_1 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_1\\ \mathbf{elif}\;b \leq -7 \cdot 10^{-271}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_0 - b}\\ \end{array}\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + t\_0\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_1\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (fma (* c -4.0) a (* b b))))
        (t_1
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))
   (if (<= b -2.1e+156)
     t_1
     (if (<= b -7e-271)
       (if (>= b 0.0)
         (fma -0.5 (/ b a) (* 0.5 (sqrt (* -4.0 (/ c a)))))
         (/ (+ c c) (- t_0 b)))
       (if (<= b 1.1e+111)
         (if (>= b 0.0)
           (* (+ b t_0) (/ -0.5 a))
           (/ 2.0 (sqrt (* -4.0 (/ a c)))))
         t_1)))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(fma((c * -4.0), a, (b * b)));
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_1 = tmp;
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_1;
	} else if (b <= -7e-271) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = fma(-0.5, (b / a), (0.5 * sqrt((-4.0 * (c / a)))));
		} else {
			tmp_2 = (c + c) / (t_0 - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = (b + t_0) * (-0.5 / a);
		} else {
			tmp_3 = 2.0 / sqrt((-4.0 * (a / c)));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_1;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	t_0 = sqrt(fma(Float64(c * -4.0), a, Float64(b * b)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_1 = tmp
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_1;
	elseif (b <= -7e-271)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = fma(-0.5, Float64(b / a), Float64(0.5 * sqrt(Float64(-4.0 * Float64(c / a)))));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_0 - b));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.1e+111)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(Float64(b + t_0) * Float64(-0.5 / a));
		else
			tmp_3 = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))));
		end
		tmp_1 = tmp_3;
	else
		tmp_1 = t_1;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, If[LessEqual[b, -2.1e+156], t$95$1, If[LessEqual[b, -7e-271], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(b / a), $MachinePrecision] + N[(0.5 * N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[(b + t$95$0), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], t$95$1]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156 or 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < -6.9999999999999999e-271

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in a around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{b}{a} + \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \color{blue}{\frac{b}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{\color{blue}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      4. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      6. lower-/.f64 48.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   6. Applied rewrites 48.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   if -6.9999999999999999e-271 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 2: 90.5% accurate, 0.7× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\\ t_1 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_1\\ \mathbf{elif}\;b \leq 3.1 \cdot 10^{-273}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_0 - b}\\ \end{array}\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + t\_0\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_1\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (fma (* c -4.0) a (* b b))))
        (t_1
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))
   (if (<= b -2.1e+156)
     t_1
     (if (<= b 3.1e-273)
       (if (>= b 0.0)
         (fma -0.5 (/ b a) (* 0.5 (sqrt (* -4.0 (/ c a)))))
         (/ (+ c c) (- t_0 b)))
       (if (<= b 1.1e+111)
         (if (>= b 0.0)
           (* (+ b t_0) (/ -0.5 a))
           (/ 2.0 (* -1.0 (* a (sqrt (/ -4.0 (* a c)))))))
         t_1)))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(fma((c * -4.0), a, (b * b)));
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_1 = tmp;
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_1;
	} else if (b <= 3.1e-273) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = fma(-0.5, (b / a), (0.5 * sqrt((-4.0 * (c / a)))));
		} else {
			tmp_2 = (c + c) / (t_0 - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = (b + t_0) * (-0.5 / a);
		} else {
			tmp_3 = 2.0 / (-1.0 * (a * sqrt((-4.0 / (a * c)))));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_1;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	t_0 = sqrt(fma(Float64(c * -4.0), a, Float64(b * b)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_1 = tmp
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_1;
	elseif (b <= 3.1e-273)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = fma(-0.5, Float64(b / a), Float64(0.5 * sqrt(Float64(-4.0 * Float64(c / a)))));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_0 - b));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.1e+111)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(Float64(b + t_0) * Float64(-0.5 / a));
		else
			tmp_3 = Float64(2.0 / Float64(-1.0 * Float64(a * sqrt(Float64(-4.0 / Float64(a * c))))));
		end
		tmp_1 = tmp_3;
	else
		tmp_1 = t_1;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, If[LessEqual[b, -2.1e+156], t$95$1, If[LessEqual[b, 3.1e-273], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(b / a), $MachinePrecision] + N[(0.5 * N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[(b + t$95$0), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[(-1.0 * N[(a * N[Sqrt[N[(-4.0 / N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], t$95$1]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156 or 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < 3.09999999999999988e-273

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in a around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{b}{a} + \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \color{blue}{\frac{b}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{\color{blue}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      4. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      6. lower-/.f64 48.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   6. Applied rewrites 48.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   if 3.09999999999999988e-273 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in a around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \color{blue}{\left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \left(a \cdot \color{blue}{\sqrt{\frac{-4}{a \cdot c}}}\right)}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}\\ \end{array} \]

      4. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}\\ \end{array} \]

      5. lower-*.f64 50.5%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}\\ \end{array} \]

   9. Applied rewrites 50.5%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{-1 \cdot \left(a \cdot \sqrt{\frac{-4}{a \cdot c}}\right)}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 3: 90.5% accurate, 0.7× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\\ t_1 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_1\\ \mathbf{elif}\;b \leq 3.1 \cdot 10^{-273}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_0 - b}\\ \end{array}\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + t\_0\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_1\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (fma (* c -4.0) a (* b b))))
        (t_1
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))
   (if (<= b -2.1e+156)
     t_1
     (if (<= b 3.1e-273)
       (if (>= b 0.0)
         (fma -0.5 (/ b a) (* 0.5 (sqrt (* -4.0 (/ c a)))))
         (/ (+ c c) (- t_0 b)))
       (if (<= b 1.1e+111)
         (if (>= b 0.0)
           (* (+ b t_0) (/ -0.5 a))
           (/ -2.0 (sqrt (* -4.0 (/ a c)))))
         t_1)))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(fma((c * -4.0), a, (b * b)));
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_1 = tmp;
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_1;
	} else if (b <= 3.1e-273) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = fma(-0.5, (b / a), (0.5 * sqrt((-4.0 * (c / a)))));
		} else {
			tmp_2 = (c + c) / (t_0 - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = (b + t_0) * (-0.5 / a);
		} else {
			tmp_3 = -2.0 / sqrt((-4.0 * (a / c)));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_1;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	t_0 = sqrt(fma(Float64(c * -4.0), a, Float64(b * b)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_1 = tmp
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_1;
	elseif (b <= 3.1e-273)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = fma(-0.5, Float64(b / a), Float64(0.5 * sqrt(Float64(-4.0 * Float64(c / a)))));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_0 - b));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.1e+111)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(Float64(b + t_0) * Float64(-0.5 / a));
		else
			tmp_3 = Float64(-2.0 / sqrt(Float64(-4.0 * Float64(a / c))));
		end
		tmp_1 = tmp_3;
	else
		tmp_1 = t_1;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, If[LessEqual[b, -2.1e+156], t$95$1, If[LessEqual[b, 3.1e-273], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(b / a), $MachinePrecision] + N[(0.5 * N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$0 - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[(b + t$95$0), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(-2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], t$95$1]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156 or 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < 3.09999999999999988e-273

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in a around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{b}{a} + \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \color{blue}{\frac{b}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{\color{blue}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      4. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      6. lower-/.f64 48.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   6. Applied rewrites 48.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   if 3.09999999999999988e-273 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{-2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.0%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 4: 90.5% accurate, 0.8× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\ t_1 := \frac{\left(-b\right) - t\_0}{2 \cdot a}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;t\_1\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{\left(e \cdot b\right) \cdot -2} \cdot \left(c + c\right)\\ \end{array}\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;t\_1\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (- (* b b) (* (* 4.0 a) c))))
        (t_1 (/ (- (- b) t_0) (* 2.0 a))))
   (if (<= b -2.1e+156)
     (if (>= b 0.0) t_1 (* (/ E (* (* E b) -2.0)) (+ c c)))
     (if (<= b 1.1e+111)
       (if (>= b 0.0) t_1 (/ (* 2.0 c) (+ (- b) t_0)))
       (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	double t_1 = (-b - t_0) / (2.0 * a);
	double tmp_1;
	if (b <= -2.1e+156) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = t_1;
		} else {
			tmp_2 = (((double) M_E) / ((((double) M_E) * b) * -2.0)) * (c + c);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = t_1;
		} else {
			tmp_3 = (2.0 * c) / (-b + t_0);
		}
		tmp_1 = tmp_3;
	} else if (b >= 0.0) {
		tmp_1 = -1.0 * (b / a);
	} else {
		tmp_1 = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double t_0 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
	double t_1 = (-b - t_0) / (2.0 * a);
	double tmp_1;
	if (b <= -2.1e+156) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = t_1;
		} else {
			tmp_2 = (Math.E / ((Math.E * b) * -2.0)) * (c + c);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = t_1;
		} else {
			tmp_3 = (2.0 * c) / (-b + t_0);
		}
		tmp_1 = tmp_3;
	} else if (b >= 0.0) {
		tmp_1 = -1.0 * (b / a);
	} else {
		tmp_1 = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	return tmp_1;
}

Python

def code(a, b, c):
	t_0 = math.sqrt(((b * b) - ((4.0 * a) * c)))
	t_1 = (-b - t_0) / (2.0 * a)
	tmp_1 = 0
	if b <= -2.1e+156:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = t_1
		else:
			tmp_2 = (math.e / ((math.e * b) * -2.0)) * (c + c)
		tmp_1 = tmp_2
	elif b <= 1.1e+111:
		tmp_3 = 0
		if b >= 0.0:
			tmp_3 = t_1
		else:
			tmp_3 = (2.0 * c) / (-b + t_0)
		tmp_1 = tmp_3
	elif b >= 0.0:
		tmp_1 = -1.0 * (b / a)
	else:
		tmp_1 = ((c + c) * math.e) / (-2.0 * (b * math.e))
	return tmp_1

Julia

function code(a, b, c)
	t_0 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
	t_1 = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a))
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = t_1;
		else
			tmp_2 = Float64(Float64(exp(1) / Float64(Float64(exp(1) * b) * -2.0)) * Float64(c + c));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.1e+111)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = t_1;
		else
			tmp_3 = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0));
		end
		tmp_1 = tmp_3;
	elseif (b >= 0.0)
		tmp_1 = Float64(-1.0 * Float64(b / a));
	else
		tmp_1 = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	return tmp_1
end

MATLAB

function tmp_5 = code(a, b, c)
	t_0 = sqrt(((b * b) - ((4.0 * a) * c)));
	t_1 = (-b - t_0) / (2.0 * a);
	tmp_2 = 0.0;
	if (b <= -2.1e+156)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = t_1;
		else
			tmp_3 = (2.71828182845904523536 / ((2.71828182845904523536 * b) * -2.0)) * (c + c);
		end
		tmp_2 = tmp_3;
	elseif (b <= 1.1e+111)
		tmp_4 = 0.0;
		if (b >= 0.0)
			tmp_4 = t_1;
		else
			tmp_4 = (2.0 * c) / (-b + t_0);
		end
		tmp_2 = tmp_4;
	elseif (b >= 0.0)
		tmp_2 = -1.0 * (b / a);
	else
		tmp_2 = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	tmp_5 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$1 = N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision]}, If[LessEqual[b, -2.1e+156], If[GreaterEqual[b, 0.0], t$95$1, N[(N[(E / N[(N[(E * b), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision] * N[(c + c), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], t$95$1, N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   7. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(c + c\right) \cdot \frac{e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{-2 \cdot \left(b \cdot e\right)} \cdot \left(c + c\right)\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{-2 \cdot \left(b \cdot e\right)} \cdot \left(c + c\right)\\ \end{array} \]

   8. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{\left(e \cdot b\right) \cdot -2} \cdot \left(c + c\right)\\ \end{array} \]

   if -2.09999999999999981e156 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   if 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 5: 89.8% accurate, 0.8× speedup

Math

\[\begin{array}{l} t_0 := \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{\left(e \cdot b\right) \cdot -2} \cdot \left(c + c\right)\\ \end{array}\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_0}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_0}\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (sqrt (fma (* c a) -4.0 (* b b)))))
   (if (<= b -2.1e+156)
     (if (>= b 0.0)
       (/ (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a))
       (* (/ E (* (* E b) -2.0)) (+ c c)))
     (if (<= b 1.1e+111)
       (if (>= b 0.0) (/ (- (- b) t_0) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_0)))
       (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))))

C

double code(double a, double b, double c) {
	double t_0 = sqrt(fma((c * a), -4.0, (b * b)));
	double tmp_1;
	if (b <= -2.1e+156) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - sqrt(((b * b) - ((4.0 * a) * c)))) / (2.0 * a);
		} else {
			tmp_2 = (((double) M_E) / ((((double) M_E) * b) * -2.0)) * (c + c);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.1e+111) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = (-b - t_0) / (2.0 * a);
		} else {
			tmp_3 = (2.0 * c) / (-b + t_0);
		}
		tmp_1 = tmp_3;
	} else if (b >= 0.0) {
		tmp_1 = -1.0 * (b / a);
	} else {
		tmp_1 = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	t_0 = sqrt(fma(Float64(c * a), -4.0, Float64(b * b)))
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(Float64(-b) - sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))) / Float64(2.0 * a));
		else
			tmp_2 = Float64(Float64(exp(1) / Float64(Float64(exp(1) * b) * -2.0)) * Float64(c + c));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.1e+111)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(Float64(Float64(-b) - t_0) / Float64(2.0 * a));
		else
			tmp_3 = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_0));
		end
		tmp_1 = tmp_3;
	elseif (b >= 0.0)
		tmp_1 = Float64(-1.0 * Float64(b / a));
	else
		tmp_1 = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2.1e+156], If[GreaterEqual[b, 0.0], N[(N[((-b) - N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(E / N[(N[(E * b), $MachinePrecision] * -2.0), $MachinePrecision]), $MachinePrecision] * N[(c + c), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$0), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$0), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   7. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(c + c\right) \cdot \frac{e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{-2 \cdot \left(b \cdot e\right)} \cdot \left(c + c\right)\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{-2 \cdot \left(b \cdot e\right)} \cdot \left(c + c\right)\\ \end{array} \]

   8. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{e}{\left(e \cdot b\right) \cdot -2} \cdot \left(c + c\right)\\ \end{array} \]

   if -2.09999999999999981e156 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift--.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b - \left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \color{blue}{\left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. fp-cancel-sub-sign-inv N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b + \left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. +-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      5. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(\mathsf{neg}\left(\color{blue}{4 \cdot a}\right)\right) \cdot c + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      6. distribute-lft-neg-in N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\left(\mathsf{neg}\left(4\right)\right) \cdot a\right)} \cdot c + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      7. associate-*l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\mathsf{neg}\left(4\right)\right) \cdot \left(a \cdot c\right)} + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      8. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(a \cdot c\right) \cdot \left(\mathsf{neg}\left(4\right)\right)} + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      9. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\mathsf{fma}\left(a \cdot c, \mathsf{neg}\left(4\right), b \cdot b\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      10. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(\color{blue}{c \cdot a}, \mathsf{neg}\left(4\right), b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      11. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(\color{blue}{c \cdot a}, \mathsf{neg}\left(4\right), b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      12. metadata-eval 72.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, \color{blue}{-4}, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   3. Applied rewrites 72.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   4. Step-by-step derivation

      1. lift--.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. fp-cancel-sub-sign-inv N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{b \cdot b + \left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c}}\\ \end{array} \]

      4. +-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}\\ \end{array} \]

      5. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}\\ \end{array} \]

      6. distribute-lft-neg-in N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(\left(\mathsf{neg}\left(4\right)\right) \cdot a\right) \cdot c + b \cdot b}}\\ \end{array} \]

      7. associate-*l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\left(\mathsf{neg}\left(4\right)\right) \cdot \left(a \cdot c\right) + b \cdot b}}\\ \end{array} \]

      8. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\left(a \cdot c\right) \cdot \left(\mathsf{neg}\left(4\right)\right) + b \cdot b}}\\ \end{array} \]

      9. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\mathsf{fma}\left(a \cdot c, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      10. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\mathsf{fma}\left(c \cdot a, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      11. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\mathsf{fma}\left(c \cdot a, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      12. metadata-eval 72.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}\\ \end{array} \]

   5. Applied rewrites 72.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}\\ \end{array} \]

   if 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 6: 89.8% accurate, 0.8× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_1}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_1}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (fma (* c a) -4.0 (* b b)))))
   (if (<= b -2.1e+156)
     t_0
     (if (<= b 1.1e+111)
       (if (>= b 0.0) (/ (- (- b) t_1) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_1)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(fma((c * a), -4.0, (b * b)));
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_0;
	} else if (b <= 1.1e+111) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - t_1) / (2.0 * a);
		} else {
			tmp_2 = (2.0 * c) / (-b + t_1);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(fma(Float64(c * a), -4.0, Float64(b * b)))
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_0;
	elseif (b <= 1.1e+111)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(Float64(-b) - t_1) / Float64(2.0 * a));
		else
			tmp_2 = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_1));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(N[(c * a), $MachinePrecision] * -4.0 + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2.1e+156], t$95$0, If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$1), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$1), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -2.09999999999999981e156 or 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift--.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b - \left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \color{blue}{\left(4 \cdot a\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. fp-cancel-sub-sign-inv N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{b \cdot b + \left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. +-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      5. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(\mathsf{neg}\left(\color{blue}{4 \cdot a}\right)\right) \cdot c + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      6. distribute-lft-neg-in N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\left(\mathsf{neg}\left(4\right)\right) \cdot a\right)} \cdot c + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      7. associate-*l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(\mathsf{neg}\left(4\right)\right) \cdot \left(a \cdot c\right)} + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      8. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left(a \cdot c\right) \cdot \left(\mathsf{neg}\left(4\right)\right)} + b \cdot b}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      9. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\mathsf{fma}\left(a \cdot c, \mathsf{neg}\left(4\right), b \cdot b\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      10. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(\color{blue}{c \cdot a}, \mathsf{neg}\left(4\right), b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      11. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(\color{blue}{c \cdot a}, \mathsf{neg}\left(4\right), b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      12. metadata-eval 72.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, \color{blue}{-4}, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   3. Applied rewrites 72.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   4. Step-by-step derivation

      1. lift--.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. fp-cancel-sub-sign-inv N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{b \cdot b + \left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c}}\\ \end{array} \]

      4. +-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}\\ \end{array} \]

      5. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(\mathsf{neg}\left(4 \cdot a\right)\right) \cdot c + b \cdot b}}\\ \end{array} \]

      6. distribute-lft-neg-in N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(\left(\mathsf{neg}\left(4\right)\right) \cdot a\right) \cdot c + b \cdot b}}\\ \end{array} \]

      7. associate-*l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\left(\mathsf{neg}\left(4\right)\right) \cdot \left(a \cdot c\right) + b \cdot b}}\\ \end{array} \]

      8. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\left(a \cdot c\right) \cdot \left(\mathsf{neg}\left(4\right)\right) + b \cdot b}}\\ \end{array} \]

      9. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\mathsf{fma}\left(a \cdot c, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      10. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\mathsf{fma}\left(c \cdot a, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      11. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\mathsf{fma}\left(c \cdot a, \mathsf{neg}\left(4\right), b \cdot b\right)}}\\ \end{array} \]

      12. metadata-eval 72.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}\\ \end{array} \]

   5. Applied rewrites 72.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\mathsf{fma}\left(c \cdot a, -4, b \cdot b\right)}}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 7: 89.7% accurate, 0.8× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 1.1 \cdot 10^{+111}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + t\_1\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_1 - b}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (fma (* c -4.0) a (* b b)))))
   (if (<= b -2.1e+156)
     t_0
     (if (<= b 1.1e+111)
       (if (>= b 0.0) (* (+ b t_1) (/ -0.5 a)) (/ (+ c c) (- t_1 b)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(fma((c * -4.0), a, (b * b)));
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_0;
	} else if (b <= 1.1e+111) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (b + t_1) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (t_1 - b);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(fma(Float64(c * -4.0), a, Float64(b * b)))
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_0;
	elseif (b <= 1.1e+111)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(b + t_1) * Float64(-0.5 / a));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_1 - b));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2.1e+156], t$95$0, If[LessEqual[b, 1.1e+111], If[GreaterEqual[b, 0.0], N[(N[(b + t$95$1), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$1 - b), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -2.09999999999999981e156 or 1.09999999999999999e111 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < 1.09999999999999999e111

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 8: 84.5% accurate, 0.8× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{if}\;b \leq -2.1 \cdot 10^{+156}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq -7 \cdot 10^{-271}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot t\_1\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array}\\ \mathbf{elif}\;b \leq 1.55 \cdot 10^{-52}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{-0.5 \cdot \frac{a \cdot t\_1}{c}}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (* -4.0 (/ c a)))))
   (if (<= b -2.1e+156)
     t_0
     (if (<= b -7e-271)
       (if (>= b 0.0)
         (fma -0.5 (/ b a) (* 0.5 t_1))
         (/ (+ c c) (- (sqrt (fma (* c -4.0) a (* b b))) b)))
       (if (<= b 1.55e-52)
         (if (>= b 0.0)
           (/ (- (- b) (sqrt (* -4.0 (* a c)))) (* 2.0 a))
           (/ 1.0 (* -0.5 (/ (* a t_1) c))))
         t_0)))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt((-4.0 * (c / a)));
	double tmp_1;
	if (b <= -2.1e+156) {
		tmp_1 = t_0;
	} else if (b <= -7e-271) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = fma(-0.5, (b / a), (0.5 * t_1));
		} else {
			tmp_2 = (c + c) / (sqrt(fma((c * -4.0), a, (b * b))) - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.55e-52) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = (-b - sqrt((-4.0 * (a * c)))) / (2.0 * a);
		} else {
			tmp_3 = 1.0 / (-0.5 * ((a * t_1) / c));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(Float64(-4.0 * Float64(c / a)))
	tmp_1 = 0.0
	if (b <= -2.1e+156)
		tmp_1 = t_0;
	elseif (b <= -7e-271)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = fma(-0.5, Float64(b / a), Float64(0.5 * t_1));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(sqrt(fma(Float64(c * -4.0), a, Float64(b * b))) - b));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.55e-52)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(Float64(Float64(-b) - sqrt(Float64(-4.0 * Float64(a * c)))) / Float64(2.0 * a));
		else
			tmp_3 = Float64(1.0 / Float64(-0.5 * Float64(Float64(a * t_1) / c)));
		end
		tmp_1 = tmp_3;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -2.1e+156], t$95$0, If[LessEqual[b, -7e-271], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(b / a), $MachinePrecision] + N[(0.5 * t$95$1), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(N[Sqrt[N[(N[(c * -4.0), $MachinePrecision] * a + N[(b * b), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.55e-52], If[GreaterEqual[b, 0.0], N[(N[((-b) - N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(1.0 / N[(-0.5 * N[(N[(a * t$95$1), $MachinePrecision] / c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]]

Derivation

1. Split input into 3 regimes

2. if b < -2.09999999999999981e156 or 1.5499999999999999e-52 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -2.09999999999999981e156 < b < -6.9999999999999999e-271

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in a around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{b}{a} + \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-fma.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \color{blue}{\frac{b}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{\color{blue}{a}}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      4. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      5. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(\frac{-1}{2}, \frac{b}{a}, \frac{1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

      6. lower-/.f64 48.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   6. Applied rewrites 48.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\mathsf{fma}\left(-0.5, \frac{b}{a}, 0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ \end{array} \]

   if -6.9999999999999999e-271 < b < 1.5499999999999999e-52

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. div-flip N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot c}}\\ \end{array} \]

      3. lower-unsound-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot c}}\\ \end{array} \]

      4. lower-unsound-/.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{1}{\frac{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot c}}}\\ \end{array} \]

   9. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{\sqrt{\left(a \cdot c\right) \cdot -4} - b}{c + c}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{1}{\frac{-1}{2} \cdot \frac{a \cdot \sqrt{-4 \cdot \frac{c}{a}}}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\color{blue}{\frac{-1}{2} \cdot \frac{a \cdot \sqrt{-4 \cdot \frac{c}{a}}}{c}}}\\ \end{array} \]

       2. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{-1}{2} \cdot \color{blue}{\frac{a \cdot \sqrt{-4 \cdot \frac{c}{a}}}{c}}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{-1}{2} \cdot \frac{\color{blue}{a \cdot \sqrt{-4 \cdot \frac{c}{a}}}}{c}}\\ \end{array} \]

       4. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{-1}{2} \cdot \frac{a \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}}{c}}\\ \end{array} \]

       5. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{\frac{-1}{2} \cdot \frac{a \cdot \sqrt{\color{blue}{-4 \cdot \frac{c}{a}}}}{c}}\\ \end{array} \]

       6. lower-/.f64 27.5%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{1}{-0.5 \cdot \frac{a \cdot \sqrt{-4 \cdot \color{blue}{\frac{c}{a}}}}{c}}\\ \end{array} \]

   12. Applied rewrites 27.5%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{1}{-0.5 \cdot \frac{a \cdot \sqrt{-4 \cdot \frac{c}{a}}}{c}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 9: 80.9% accurate, 0.9× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ \mathbf{if}\;b \leq -1.3 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq -2.4 \cdot 10^{-270}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(2 \cdot b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array}\\ \mathbf{elif}\;b \leq 1.32 \cdot 10^{-55}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\frac{a}{c} \cdot -4\right|}}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E))))))
   (if (<= b -1.3e-17)
     t_0
     (if (<= b -2.4e-270)
       (if (>= b 0.0)
         (* (* 2.0 b) (/ -0.5 a))
         (/ (+ c c) (- (sqrt (* (* a c) -4.0)) b)))
       (if (<= b 1.32e-55)
         (if (>= b 0.0)
           (* -0.5 (/ (sqrt (* -4.0 (* a c))) a))
           (/ 2.0 (sqrt (fabs (* (/ a c) -4.0)))))
         t_0)))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= -2.4e-270) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (2.0 * b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (sqrt(((a * c) * -4.0)) - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.32e-55) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_3 = 2.0 / sqrt(fabs(((a / c) * -4.0)));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= -2.4e-270) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (2.0 * b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (Math.sqrt(((a * c) * -4.0)) - b);
		}
		tmp_1 = tmp_2;
	} else if (b <= 1.32e-55) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * (Math.sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_3 = 2.0 / Math.sqrt(Math.abs(((a / c) * -4.0)));
		}
		tmp_1 = tmp_3;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	tmp_1 = 0
	if b <= -1.3e-17:
		tmp_1 = t_0
	elif b <= -2.4e-270:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = (2.0 * b) * (-0.5 / a)
		else:
			tmp_2 = (c + c) / (math.sqrt(((a * c) * -4.0)) - b)
		tmp_1 = tmp_2
	elif b <= 1.32e-55:
		tmp_3 = 0
		if b >= 0.0:
			tmp_3 = -0.5 * (math.sqrt((-4.0 * (a * c))) / a)
		else:
			tmp_3 = 2.0 / math.sqrt(math.fabs(((a / c) * -4.0)))
		tmp_1 = tmp_3
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	tmp_1 = 0.0
	if (b <= -1.3e-17)
		tmp_1 = t_0;
	elseif (b <= -2.4e-270)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(2.0 * b) * Float64(-0.5 / a));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(sqrt(Float64(Float64(a * c) * -4.0)) - b));
		end
		tmp_1 = tmp_2;
	elseif (b <= 1.32e-55)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(-0.5 * Float64(sqrt(Float64(-4.0 * Float64(a * c))) / a));
		else
			tmp_3 = Float64(2.0 / sqrt(abs(Float64(Float64(a / c) * -4.0))));
		end
		tmp_1 = tmp_3;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_5 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	tmp_2 = 0.0;
	if (b <= -1.3e-17)
		tmp_2 = t_0;
	elseif (b <= -2.4e-270)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = (2.0 * b) * (-0.5 / a);
		else
			tmp_3 = (c + c) / (sqrt(((a * c) * -4.0)) - b);
		end
		tmp_2 = tmp_3;
	elseif (b <= 1.32e-55)
		tmp_4 = 0.0;
		if (b >= 0.0)
			tmp_4 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		else
			tmp_4 = 2.0 / sqrt(abs(((a / c) * -4.0)));
		end
		tmp_2 = tmp_4;
	else
		tmp_2 = t_0;
	end
	tmp_5 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, If[LessEqual[b, -1.3e-17], t$95$0, If[LessEqual[b, -2.4e-270], If[GreaterEqual[b, 0.0], N[(N[(2.0 * b), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(N[Sqrt[N[(N[(a * c), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision] - b), $MachinePrecision]), $MachinePrecision]], If[LessEqual[b, 1.32e-55], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[Sqrt[N[Abs[N[(N[(a / c), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 3 regimes

2. if b < -1.30000000000000002e-17 or 1.31999999999999993e-55 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.30000000000000002e-17 < b < -2.40000000000000002e-270

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

   9. Applied rewrites 41.2%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot -4} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ } \end{array}} \]

   10. Taylor expanded in b around inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\left(2 \cdot b\right)} \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 54.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(2 \cdot \color{blue}{b}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

   12. Applied rewrites 54.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\left(2 \cdot b\right)} \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

   if -2.40000000000000002e-270 < b < 1.31999999999999993e-55

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

       2. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       3. lift-*.f64 21.6%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       4. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       5. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       6. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       7. sqr-abs-rev N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4}\right| \cdot \left|\sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       8. mul-fabs N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       9. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       10. lift-sqrt.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}\right|}}\\ \end{array} \]

       11. rem-square-sqrt N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       12. lower-fabs.f64 23.7%

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]

   11. Applied rewrites 23.7%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 10: 80.9% accurate, 0.9× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}\\ \mathbf{if}\;b \leq -1.35 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 2.1 \cdot 10^{-52}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_1}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_1}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (fabs (* (* a c) -4.0)))))
   (if (<= b -1.35e-17)
     t_0
     (if (<= b 2.1e-52)
       (if (>= b 0.0) (/ (- (- b) t_1) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_1)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(fabs(((a * c) * -4.0)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 2.1e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - t_1) / (2.0 * a);
		} else {
			tmp_2 = (2.0 * c) / (-b + t_1);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double t_1 = Math.sqrt(Math.abs(((a * c) * -4.0)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 2.1e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - t_1) / (2.0 * a);
		} else {
			tmp_2 = (2.0 * c) / (-b + t_1);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	t_1 = math.sqrt(math.fabs(((a * c) * -4.0)))
	tmp_1 = 0
	if b <= -1.35e-17:
		tmp_1 = t_0
	elif b <= 2.1e-52:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = (-b - t_1) / (2.0 * a)
		else:
			tmp_2 = (2.0 * c) / (-b + t_1)
		tmp_1 = tmp_2
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(abs(Float64(Float64(a * c) * -4.0)))
	tmp_1 = 0.0
	if (b <= -1.35e-17)
		tmp_1 = t_0;
	elseif (b <= 2.1e-52)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(Float64(-b) - t_1) / Float64(2.0 * a));
		else
			tmp_2 = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_1));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	t_1 = sqrt(abs(((a * c) * -4.0)));
	tmp_2 = 0.0;
	if (b <= -1.35e-17)
		tmp_2 = t_0;
	elseif (b <= 2.1e-52)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = (-b - t_1) / (2.0 * a);
		else
			tmp_3 = (2.0 * c) / (-b + t_1);
		end
		tmp_2 = tmp_3;
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[Abs[N[(N[(a * c), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.35e-17], t$95$0, If[LessEqual[b, 2.1e-52], If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$1), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$1), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -1.3500000000000001e-17 or 2.0999999999999999e-52 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.3500000000000001e-17 < b < 2.0999999999999999e-52

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

      1. rem-square-sqrt N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lift-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)}} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      3. lift-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)}}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      4. sqr-abs-rev N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left|\sqrt{-4 \cdot \left(a \cdot c\right)}\right| \cdot \left|\sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      5. mul-fabs N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left|\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      6. lift-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)}} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      7. lift-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)}}\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      8. rem-square-sqrt N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\color{blue}{-4 \cdot \left(a \cdot c\right)}\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      9. lower-fabs.f64 46.0%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left|-4 \cdot \left(a \cdot c\right)\right|}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   9. Applied rewrites 46.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{\left|\left(a \cdot c\right) \cdot -4\right|}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   10. Step-by-step derivation

       1. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}}\\ \end{array} \]

       2. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}}\\ \end{array} \]

       3. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}}\\ \end{array} \]

       4. sqr-abs-rev N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left|\sqrt{-4 \cdot \left(a \cdot c\right)}\right| \cdot \left|\sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}\\ \end{array} \]

       5. mul-fabs N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left|\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}\\ \end{array} \]

       6. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left|\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}\\ \end{array} \]

       7. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left|\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}\right|}}\\ \end{array} \]

       8. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-\color{blue}{b}\right) + \sqrt{\left|-4 \cdot \left(a \cdot c\right)\right|}}\\ \end{array} \]

       9. lower-fabs.f64 50.7%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left|-4 \cdot \left(a \cdot c\right)\right|}}\\ \end{array} \]

   11. Applied rewrites 50.7%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{\left|\left(a \cdot c\right) \cdot -4\right|}}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 11: 80.6% accurate, 0.9× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\left|\left(c \cdot a\right) \cdot -4\right|}\\ \mathbf{if}\;b \leq -1.35 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 2.1 \cdot 10^{-52}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(t\_1 + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_1 - b}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (fabs (* (* c a) -4.0)))))
   (if (<= b -1.35e-17)
     t_0
     (if (<= b 2.1e-52)
       (if (>= b 0.0) (* (+ t_1 b) (/ -0.5 a)) (/ (+ c c) (- t_1 b)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(fabs(((c * a) * -4.0)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 2.1e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (t_1 + b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (t_1 - b);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double t_1 = Math.sqrt(Math.abs(((c * a) * -4.0)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 2.1e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (t_1 + b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (t_1 - b);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	t_1 = math.sqrt(math.fabs(((c * a) * -4.0)))
	tmp_1 = 0
	if b <= -1.35e-17:
		tmp_1 = t_0
	elif b <= 2.1e-52:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = (t_1 + b) * (-0.5 / a)
		else:
			tmp_2 = (c + c) / (t_1 - b)
		tmp_1 = tmp_2
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(abs(Float64(Float64(c * a) * -4.0)))
	tmp_1 = 0.0
	if (b <= -1.35e-17)
		tmp_1 = t_0;
	elseif (b <= 2.1e-52)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(t_1 + b) * Float64(-0.5 / a));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_1 - b));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	t_1 = sqrt(abs(((c * a) * -4.0)));
	tmp_2 = 0.0;
	if (b <= -1.35e-17)
		tmp_2 = t_0;
	elseif (b <= 2.1e-52)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = (t_1 + b) * (-0.5 / a);
		else
			tmp_3 = (c + c) / (t_1 - b);
		end
		tmp_2 = tmp_3;
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[Abs[N[(N[(c * a), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.35e-17], t$95$0, If[LessEqual[b, 2.1e-52], If[GreaterEqual[b, 0.0], N[(N[(t$95$1 + b), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$1 - b), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -1.3500000000000001e-17 or 2.0999999999999999e-52 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.3500000000000001e-17 < b < 2.0999999999999999e-52

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

   9. Applied rewrites 41.2%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot -4} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ } \end{array}} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot \color{blue}{-4}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       2. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       3. lift-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       4. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\color{blue}{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       5. pow1/2 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\color{blue}{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       6. pow1/2 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}} \cdot \color{blue}{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       7. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{{\left(-4 \cdot \color{blue}{\left(a \cdot c\right)}\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       8. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{{\left(\left(a \cdot c\right) \cdot \color{blue}{-4}\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       9. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{{\left(\left(a \cdot c\right) \cdot \color{blue}{-4}\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       10. pow1/2 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\color{blue}{\sqrt{\left(a \cdot c\right) \cdot -4}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       11. lift-sqrt.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\color{blue}{\sqrt{\left(a \cdot c\right) \cdot -4}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       12. lift-*.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(-4 \cdot \color{blue}{\left(a \cdot c\right)}\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       13. *-commutative N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(\left(a \cdot c\right) \cdot \color{blue}{-4}\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       14. lift-*.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(\left(a \cdot c\right) \cdot \color{blue}{-4}\right)}^{\frac{1}{2}}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

   11. Applied rewrites 45.9%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\color{blue}{\left|\left(c \cdot a\right) \cdot -4\right|}} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]
   12. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       2. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{-4 \cdot \left(a \cdot c\right)} - b}\\ \end{array} \]

       3. lift-*.f64 45.9%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{-4 \cdot \left(a \cdot c\right)} - b}\\ \end{array} \]

       4. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\color{blue}{c} + c}{\sqrt{\sqrt{-4 \cdot \left(a \cdot c\right)} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}} - b}\\ \end{array} \]

       5. pow1/2 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}} \cdot \sqrt{-4 \cdot \left(a \cdot c\right)}} - b}\\ \end{array} \]

       6. pow1/2 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       7. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{{\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       8. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{{\left(\left(a \cdot c\right) \cdot -4\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       9. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{{\left(\left(a \cdot c\right) \cdot -4\right)}^{\frac{1}{2}} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       10. pow1/2 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       11. lift-sqrt.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       12. lift-*.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(-4 \cdot \left(a \cdot c\right)\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       13. *-commutative N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(\left(a \cdot c\right) \cdot -4\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

       14. lift-*.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\sqrt{\left(a \cdot c\right) \cdot -4} \cdot {\left(\left(a \cdot c\right) \cdot -4\right)}^{\frac{1}{2}}} - b}\\ \end{array} \]

   13. Applied rewrites 50.6%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\color{blue}{c} + c}{\sqrt{\left|\left(c \cdot a\right) \cdot -4\right|} - b}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 12: 80.5% accurate, 0.9× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\left(a \cdot -4\right) \cdot c}\\ \mathbf{if}\;b \leq -1.3 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 1.55 \cdot 10^{-52}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_1}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_1}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (* (* a -4.0) c))))
   (if (<= b -1.3e-17)
     t_0
     (if (<= b 1.55e-52)
       (if (>= b 0.0) (/ (- (- b) t_1) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) t_1)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(((a * -4.0) * c));
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.55e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - t_1) / (2.0 * a);
		} else {
			tmp_2 = (2.0 * c) / (-b + t_1);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double t_1 = Math.sqrt(((a * -4.0) * c));
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.55e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (-b - t_1) / (2.0 * a);
		} else {
			tmp_2 = (2.0 * c) / (-b + t_1);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	t_1 = math.sqrt(((a * -4.0) * c))
	tmp_1 = 0
	if b <= -1.3e-17:
		tmp_1 = t_0
	elif b <= 1.55e-52:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = (-b - t_1) / (2.0 * a)
		else:
			tmp_2 = (2.0 * c) / (-b + t_1)
		tmp_1 = tmp_2
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(Float64(Float64(a * -4.0) * c))
	tmp_1 = 0.0
	if (b <= -1.3e-17)
		tmp_1 = t_0;
	elseif (b <= 1.55e-52)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(Float64(-b) - t_1) / Float64(2.0 * a));
		else
			tmp_2 = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_1));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	t_1 = sqrt(((a * -4.0) * c));
	tmp_2 = 0.0;
	if (b <= -1.3e-17)
		tmp_2 = t_0;
	elseif (b <= 1.55e-52)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = (-b - t_1) / (2.0 * a);
		else
			tmp_3 = (2.0 * c) / (-b + t_1);
		end
		tmp_2 = tmp_3;
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(N[(a * -4.0), $MachinePrecision] * c), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.3e-17], t$95$0, If[LessEqual[b, 1.55e-52], If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$1), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$1), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -1.30000000000000002e-17 or 1.5499999999999999e-52 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.30000000000000002e-17 < b < 1.5499999999999999e-52

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      3. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(-4 \cdot a\right) \cdot \color{blue}{c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(-4 \cdot a\right) \cdot \color{blue}{c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      5. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      6. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   9. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot \color{blue}{c}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

       2. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

       3. associate-*r* N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(-4 \cdot a\right) \cdot c}}\\ \end{array} \]

       4. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(-4 \cdot a\right) \cdot c}}\\ \end{array} \]

       5. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(a \cdot -4\right) \cdot c}}\\ \end{array} \]

       6. lower-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(a \cdot -4\right) \cdot c}}\\ \end{array} \]

   11. Applied rewrites 41.2%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\left(a \cdot -4\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{\left(a \cdot -4\right) \cdot c}}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 13: 79.4% accurate, 1.0× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{\left(-4 \cdot c\right) \cdot a}\\ \mathbf{if}\;b \leq -1.3 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 1.55 \cdot 10^{-52}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(t\_1 + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{t\_1 - b}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (* (* -4.0 c) a))))
   (if (<= b -1.3e-17)
     t_0
     (if (<= b 1.55e-52)
       (if (>= b 0.0) (* (+ t_1 b) (/ -0.5 a)) (/ (+ c c) (- t_1 b)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt(((-4.0 * c) * a));
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.55e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (t_1 + b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (t_1 - b);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double t_1 = Math.sqrt(((-4.0 * c) * a));
	double tmp_1;
	if (b <= -1.3e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.55e-52) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = (t_1 + b) * (-0.5 / a);
		} else {
			tmp_2 = (c + c) / (t_1 - b);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	t_1 = math.sqrt(((-4.0 * c) * a))
	tmp_1 = 0
	if b <= -1.3e-17:
		tmp_1 = t_0
	elif b <= 1.55e-52:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = (t_1 + b) * (-0.5 / a)
		else:
			tmp_2 = (c + c) / (t_1 - b)
		tmp_1 = tmp_2
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(Float64(Float64(-4.0 * c) * a))
	tmp_1 = 0.0
	if (b <= -1.3e-17)
		tmp_1 = t_0;
	elseif (b <= 1.55e-52)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(Float64(t_1 + b) * Float64(-0.5 / a));
		else
			tmp_2 = Float64(Float64(c + c) / Float64(t_1 - b));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	t_1 = sqrt(((-4.0 * c) * a));
	tmp_2 = 0.0;
	if (b <= -1.3e-17)
		tmp_2 = t_0;
	elseif (b <= 1.55e-52)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = (t_1 + b) * (-0.5 / a);
		else
			tmp_3 = (c + c) / (t_1 - b);
		end
		tmp_2 = tmp_3;
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(N[(-4.0 * c), $MachinePrecision] * a), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.3e-17], t$95$0, If[LessEqual[b, 1.55e-52], If[GreaterEqual[b, 0.0], N[(N[(t$95$1 + b), $MachinePrecision] * N[(-0.5 / a), $MachinePrecision]), $MachinePrecision], N[(N[(c + c), $MachinePrecision] / N[(t$95$1 - b), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -1.30000000000000002e-17 or 1.5499999999999999e-52 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.30000000000000002e-17 < b < 1.5499999999999999e-52

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   2. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   3. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \color{blue}{\left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lower-*.f64 56.8%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot \color{blue}{c}\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   4. Applied rewrites 56.8%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{\color{blue}{-4 \cdot \left(a \cdot c\right)}}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

   5. Taylor expanded in a around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   6. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

      2. lower-*.f64 41.2%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]

   7. Applied rewrites 41.2%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{-4 \cdot \left(a \cdot c\right)}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\color{blue}{\left(-b\right)} + \sqrt{-4 \cdot \left(a \cdot c\right)}}\\ \end{array} \]
   8. Step-by-step derivation

   9. Applied rewrites 41.2%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot -4} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ } \end{array}} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot \color{blue}{-4}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       2. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(a \cdot c\right) \cdot -4} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       3. associate-*l* N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{a \cdot \color{blue}{\left(c \cdot -4\right)}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       4. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{a \cdot \left(c \cdot \color{blue}{-4}\right)} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       5. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(c \cdot -4\right) \cdot \color{blue}{a}} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       6. lower-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(c \cdot -4\right) \cdot \color{blue}{a}} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       7. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(c \cdot -4\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       8. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       9. lower-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

   11. Applied rewrites 41.2%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot \color{blue}{a}} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]
   12. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       2. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(a \cdot c\right) \cdot -4} - b}\\ \end{array} \]

       3. associate-*l* N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{a \cdot \left(c \cdot -4\right)} - b}\\ \end{array} \]

       4. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{a \cdot \left(c \cdot -4\right)} - b}\\ \end{array} \]

       5. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(c \cdot -4\right) \cdot a} - b}\\ \end{array} \]

       6. lower-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(c \cdot -4\right) \cdot a} - b}\\ \end{array} \]

       7. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(c \cdot -4\right) \cdot a} - b}\\ \end{array} \]

       8. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(-4 \cdot c\right) \cdot a} - b}\\ \end{array} \]

       9. lower-*.f64 41.2%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(-4 \cdot c\right) \cdot a} - b}\\ \end{array} \]

   13. Applied rewrites 41.2%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(\sqrt{\left(-4 \cdot c\right) \cdot a} + b\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\left(-4 \cdot c\right) \cdot a} - b}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 14: 79.3% accurate, 1.0× speedup

Math

\[\begin{array}{l} t_0 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array}\\ t_1 := \sqrt{-4 \cdot \left(a \cdot c\right)}\\ \mathbf{if}\;b \leq -1.35 \cdot 10^{-17}:\\ \;\;\;\;t\_0\\ \mathbf{elif}\;b \leq 1.32 \cdot 10^{-55}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{t\_1}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{t\_1}{c}}\\ \end{array}\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0
         (if (>= b 0.0) (* -1.0 (/ b a)) (/ (* (+ c c) E) (* -2.0 (* b E)))))
        (t_1 (sqrt (* -4.0 (* a c)))))
   (if (<= b -1.35e-17)
     t_0
     (if (<= b 1.32e-55)
       (if (>= b 0.0) (* -0.5 (/ t_1 a)) (/ 2.0 (/ t_1 c)))
       t_0))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * ((double) M_E)) / (-2.0 * (b * ((double) M_E)));
	}
	double t_0 = tmp;
	double t_1 = sqrt((-4.0 * (a * c)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.32e-55) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * (t_1 / a);
		} else {
			tmp_2 = 2.0 / (t_1 / c);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -1.0 * (b / a);
	} else {
		tmp = ((c + c) * Math.E) / (-2.0 * (b * Math.E));
	}
	double t_0 = tmp;
	double t_1 = Math.sqrt((-4.0 * (a * c)));
	double tmp_1;
	if (b <= -1.35e-17) {
		tmp_1 = t_0;
	} else if (b <= 1.32e-55) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * (t_1 / a);
		} else {
			tmp_2 = 2.0 / (t_1 / c);
		}
		tmp_1 = tmp_2;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -1.0 * (b / a)
	else:
		tmp = ((c + c) * math.e) / (-2.0 * (b * math.e))
	t_0 = tmp
	t_1 = math.sqrt((-4.0 * (a * c)))
	tmp_1 = 0
	if b <= -1.35e-17:
		tmp_1 = t_0
	elif b <= 1.32e-55:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = -0.5 * (t_1 / a)
		else:
			tmp_2 = 2.0 / (t_1 / c)
		tmp_1 = tmp_2
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-1.0 * Float64(b / a));
	else
		tmp = Float64(Float64(Float64(c + c) * exp(1)) / Float64(-2.0 * Float64(b * exp(1))));
	end
	t_0 = tmp
	t_1 = sqrt(Float64(-4.0 * Float64(a * c)))
	tmp_1 = 0.0
	if (b <= -1.35e-17)
		tmp_1 = t_0;
	elseif (b <= 1.32e-55)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(-0.5 * Float64(t_1 / a));
		else
			tmp_2 = Float64(2.0 / Float64(t_1 / c));
		end
		tmp_1 = tmp_2;
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -1.0 * (b / a);
	else
		tmp = ((c + c) * 2.71828182845904523536) / (-2.0 * (b * 2.71828182845904523536));
	end
	t_0 = tmp;
	t_1 = sqrt((-4.0 * (a * c)));
	tmp_2 = 0.0;
	if (b <= -1.35e-17)
		tmp_2 = t_0;
	elseif (b <= 1.32e-55)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = -0.5 * (t_1 / a);
		else
			tmp_3 = 2.0 / (t_1 / c);
		end
		tmp_2 = tmp_3;
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = If[GreaterEqual[b, 0.0], N[(-1.0 * N[(b / a), $MachinePrecision]), $MachinePrecision], N[(N[(N[(c + c), $MachinePrecision] * E), $MachinePrecision] / N[(-2.0 * N[(b * E), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$1 = N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[b, -1.35e-17], t$95$0, If[LessEqual[b, 1.32e-55], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(t$95$1 / a), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[(t$95$1 / c), $MachinePrecision]), $MachinePrecision]], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if b < -1.3500000000000001e-17 or 1.31999999999999993e-55 < b

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

      1. lift-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      2. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      3. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]

      4. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\\ \end{array} \]

      5. metadata-eval N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \left(2 \cdot 1\right)}\\ \end{array} \]

      6. associate-*r* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(\frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 2\right) \cdot 1\\ \end{array} \]

      7. *-commutative N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\left(2 \cdot \frac{c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\right) \cdot 1\\ \end{array} \]

      8. associate-/l* N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      9. lift-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot 1\\ \end{array} \]

      10. 1-exp N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot e^{0}}\\ \end{array} \]

      11. metadata-eval N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}} \cdot e^{1 - 1}\\ \end{array} \]

      12. exp-diff N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}} \cdot \frac{e^{1}}{e^{1}}}\\ \end{array} \]

      13. frac-times N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

      14. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(2 \cdot c\right) \cdot e^{1}}{\left(\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\right) \cdot e^{1}}\\ \end{array} \]

   3. Applied rewrites 72.0%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\left(\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b\right) \cdot e}\\ \end{array} \]

   4. Taylor expanded in b around -inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{\color{blue}{-2 \cdot \left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      2. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \color{blue}{\left(b \cdot \mathsf{E}\left(\right)\right)}}\\ \end{array} \]

      3. lower-E.f64 69.7%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot \color{blue}{e}\right)}\\ \end{array} \]

   6. Applied rewrites 69.7%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}}\\ \end{array} \]

   7. Taylor expanded in b around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \color{blue}{\frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

      2. lower-/.f64 67.4%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-1 \cdot \frac{b}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   9. Applied rewrites 67.4%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-1 \cdot \frac{b}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{\left(c + c\right) \cdot e}{-2 \cdot \left(b \cdot e\right)}\\ \end{array} \]

   if -1.3500000000000001e-17 < b < 1.31999999999999993e-55

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in c around 0

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{c}}}\\ \end{array} \]

       2. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{c}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{c}}\\ \end{array} \]

       4. lower-*.f64 26.6%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{c}}\\ \end{array} \]

   12. Applied rewrites 26.6%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{c}}}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 15: 29.9% accurate, 1.0× speedup

Math

\[\begin{array}{l} t_0 := \frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ t_1 := \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{if}\;a \leq -2.2 \cdot 10^{-174}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot t\_1\right)\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array}\\ \mathbf{elif}\;a \leq 2.9 \cdot 10^{+186}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot t\_1\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (/ 2.0 (sqrt (* -4.0 (/ a c))))) (t_1 (sqrt (* -4.0 (/ c a)))))
   (if (<= a -2.2e-174)
     (if (>= b 0.0) (* -0.5 (* -1.0 t_1)) t_0)
     (if (<= a 2.9e+186)
       (if (>= b 0.0)
         (* -0.5 (/ (sqrt (* -4.0 (* a c))) a))
         (/ -2.0 (* a (sqrt (/ -4.0 (* a c))))))
       (if (>= b 0.0) (* -0.5 t_1) t_0)))))

C

double code(double a, double b, double c) {
	double t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	double t_1 = sqrt((-4.0 * (c / a)));
	double tmp_1;
	if (a <= -2.2e-174) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * (-1.0 * t_1);
		} else {
			tmp_2 = t_0;
		}
		tmp_1 = tmp_2;
	} else if (a <= 2.9e+186) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_3 = -2.0 / (a * sqrt((-4.0 / (a * c))));
		}
		tmp_1 = tmp_3;
	} else if (b >= 0.0) {
		tmp_1 = -0.5 * t_1;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Fortran

module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, b, c)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8) :: t_0
    real(8) :: t_1
    real(8) :: tmp
    real(8) :: tmp_1
    real(8) :: tmp_2
    real(8) :: tmp_3
    t_0 = 2.0d0 / sqrt(((-4.0d0) * (a / c)))
    t_1 = sqrt(((-4.0d0) * (c / a)))
    if (a <= (-2.2d-174)) then
        if (b >= 0.0d0) then
            tmp_2 = (-0.5d0) * ((-1.0d0) * t_1)
        else
            tmp_2 = t_0
        end if
        tmp_1 = tmp_2
    else if (a <= 2.9d+186) then
        if (b >= 0.0d0) then
            tmp_3 = (-0.5d0) * (sqrt(((-4.0d0) * (a * c))) / a)
        else
            tmp_3 = (-2.0d0) / (a * sqrt(((-4.0d0) / (a * c))))
        end if
        tmp_1 = tmp_3
    else if (b >= 0.0d0) then
        tmp_1 = (-0.5d0) * t_1
    else
        tmp_1 = t_0
    end if
    code = tmp_1
end function

Java

public static double code(double a, double b, double c) {
	double t_0 = 2.0 / Math.sqrt((-4.0 * (a / c)));
	double t_1 = Math.sqrt((-4.0 * (c / a)));
	double tmp_1;
	if (a <= -2.2e-174) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * (-1.0 * t_1);
		} else {
			tmp_2 = t_0;
		}
		tmp_1 = tmp_2;
	} else if (a <= 2.9e+186) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * (Math.sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_3 = -2.0 / (a * Math.sqrt((-4.0 / (a * c))));
		}
		tmp_1 = tmp_3;
	} else if (b >= 0.0) {
		tmp_1 = -0.5 * t_1;
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	t_0 = 2.0 / math.sqrt((-4.0 * (a / c)))
	t_1 = math.sqrt((-4.0 * (c / a)))
	tmp_1 = 0
	if a <= -2.2e-174:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = -0.5 * (-1.0 * t_1)
		else:
			tmp_2 = t_0
		tmp_1 = tmp_2
	elif a <= 2.9e+186:
		tmp_3 = 0
		if b >= 0.0:
			tmp_3 = -0.5 * (math.sqrt((-4.0 * (a * c))) / a)
		else:
			tmp_3 = -2.0 / (a * math.sqrt((-4.0 / (a * c))))
		tmp_1 = tmp_3
	elif b >= 0.0:
		tmp_1 = -0.5 * t_1
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	t_0 = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))))
	t_1 = sqrt(Float64(-4.0 * Float64(c / a)))
	tmp_1 = 0.0
	if (a <= -2.2e-174)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(-0.5 * Float64(-1.0 * t_1));
		else
			tmp_2 = t_0;
		end
		tmp_1 = tmp_2;
	elseif (a <= 2.9e+186)
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(-0.5 * Float64(sqrt(Float64(-4.0 * Float64(a * c))) / a));
		else
			tmp_3 = Float64(-2.0 / Float64(a * sqrt(Float64(-4.0 / Float64(a * c)))));
		end
		tmp_1 = tmp_3;
	elseif (b >= 0.0)
		tmp_1 = Float64(-0.5 * t_1);
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_5 = code(a, b, c)
	t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	t_1 = sqrt((-4.0 * (c / a)));
	tmp_2 = 0.0;
	if (a <= -2.2e-174)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = -0.5 * (-1.0 * t_1);
		else
			tmp_3 = t_0;
		end
		tmp_2 = tmp_3;
	elseif (a <= 2.9e+186)
		tmp_4 = 0.0;
		if (b >= 0.0)
			tmp_4 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		else
			tmp_4 = -2.0 / (a * sqrt((-4.0 / (a * c))));
		end
		tmp_2 = tmp_4;
	elseif (b >= 0.0)
		tmp_2 = -0.5 * t_1;
	else
		tmp_2 = t_0;
	end
	tmp_5 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[a, -2.2e-174], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 * t$95$1), $MachinePrecision]), $MachinePrecision], t$95$0], If[LessEqual[a, 2.9e+186], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(-2.0 / N[(a * N[Sqrt[N[(-4.0 / N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-0.5 * t$95$1), $MachinePrecision], t$95$0]]]]]

Derivation

1. Split input into 3 regimes

2. if a < -2.20000000000000022e-174

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       4. lower-/.f64 15.8%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 15.8%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   if -2.20000000000000022e-174 < a < 2.9e186

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{\color{blue}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}}\\ \end{array} \]

       2. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{a \cdot \color{blue}{\sqrt{\frac{-4}{a \cdot c}}}}\\ \end{array} \]

       3. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}\\ \end{array} \]

       4. lower-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}\\ \end{array} \]

       5. lower-*.f64 28.0%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}\\ \end{array} \]

   12. Applied rewrites 28.0%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{-2}{a \cdot \sqrt{\frac{-4}{a \cdot c}}}}\\ \end{array} \]

   if 2.9e186 < a

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-/.f64 16.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 16.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 16: 29.3% accurate, 0.3× speedup

Math

\[\begin{array}{l} t_0 := \frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ t_1 := -0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ t_2 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\ t_3 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_2}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_2}\\ \end{array}\\ t_4 := \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{if}\;t\_3 \leq -\infty:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot t\_4\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array}\\ \mathbf{elif}\;t\_3 \leq 5 \cdot 10^{-269}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;t\_1\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\frac{a}{c} \cdot -4\right|}}\\ \end{array}\\ \mathbf{elif}\;t\_3 \leq 4 \cdot 10^{+279}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;t\_1\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot a}}{\sqrt{c}}}\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot t\_4\right)\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (/ 2.0 (sqrt (* -4.0 (/ a c)))))
        (t_1 (* -0.5 (/ (sqrt (* -4.0 (* a c))) a)))
        (t_2 (sqrt (- (* b b) (* (* 4.0 a) c))))
        (t_3
         (if (>= b 0.0)
           (/ (- (- b) t_2) (* 2.0 a))
           (/ (* 2.0 c) (+ (- b) t_2))))
        (t_4 (sqrt (* -4.0 (/ c a)))))
   (if (<= t_3 (- INFINITY))
     (if (>= b 0.0) (* -0.5 t_4) t_0)
     (if (<= t_3 5e-269)
       (if (>= b 0.0) t_1 (/ 2.0 (sqrt (fabs (* (/ a c) -4.0)))))
       (if (<= t_3 4e+279)
         (if (>= b 0.0) t_1 (/ 2.0 (/ (sqrt (* -4.0 a)) (sqrt c))))
         (if (>= b 0.0) (* -0.5 (* -1.0 t_4)) t_0))))))

C

double code(double a, double b, double c) {
	double t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	double t_1 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
	double t_2 = sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_2) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_2);
	}
	double t_3 = tmp;
	double t_4 = sqrt((-4.0 * (c / a)));
	double tmp_2;
	if (t_3 <= -((double) INFINITY)) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * t_4;
		} else {
			tmp_3 = t_0;
		}
		tmp_2 = tmp_3;
	} else if (t_3 <= 5e-269) {
		double tmp_4;
		if (b >= 0.0) {
			tmp_4 = t_1;
		} else {
			tmp_4 = 2.0 / sqrt(fabs(((a / c) * -4.0)));
		}
		tmp_2 = tmp_4;
	} else if (t_3 <= 4e+279) {
		double tmp_5;
		if (b >= 0.0) {
			tmp_5 = t_1;
		} else {
			tmp_5 = 2.0 / (sqrt((-4.0 * a)) / sqrt(c));
		}
		tmp_2 = tmp_5;
	} else if (b >= 0.0) {
		tmp_2 = -0.5 * (-1.0 * t_4);
	} else {
		tmp_2 = t_0;
	}
	return tmp_2;
}

Java

public static double code(double a, double b, double c) {
	double t_0 = 2.0 / Math.sqrt((-4.0 * (a / c)));
	double t_1 = -0.5 * (Math.sqrt((-4.0 * (a * c))) / a);
	double t_2 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_2) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_2);
	}
	double t_3 = tmp;
	double t_4 = Math.sqrt((-4.0 * (c / a)));
	double tmp_2;
	if (t_3 <= -Double.POSITIVE_INFINITY) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * t_4;
		} else {
			tmp_3 = t_0;
		}
		tmp_2 = tmp_3;
	} else if (t_3 <= 5e-269) {
		double tmp_4;
		if (b >= 0.0) {
			tmp_4 = t_1;
		} else {
			tmp_4 = 2.0 / Math.sqrt(Math.abs(((a / c) * -4.0)));
		}
		tmp_2 = tmp_4;
	} else if (t_3 <= 4e+279) {
		double tmp_5;
		if (b >= 0.0) {
			tmp_5 = t_1;
		} else {
			tmp_5 = 2.0 / (Math.sqrt((-4.0 * a)) / Math.sqrt(c));
		}
		tmp_2 = tmp_5;
	} else if (b >= 0.0) {
		tmp_2 = -0.5 * (-1.0 * t_4);
	} else {
		tmp_2 = t_0;
	}
	return tmp_2;
}

Python

def code(a, b, c):
	t_0 = 2.0 / math.sqrt((-4.0 * (a / c)))
	t_1 = -0.5 * (math.sqrt((-4.0 * (a * c))) / a)
	t_2 = math.sqrt(((b * b) - ((4.0 * a) * c)))
	tmp = 0
	if b >= 0.0:
		tmp = (-b - t_2) / (2.0 * a)
	else:
		tmp = (2.0 * c) / (-b + t_2)
	t_3 = tmp
	t_4 = math.sqrt((-4.0 * (c / a)))
	tmp_2 = 0
	if t_3 <= -math.inf:
		tmp_3 = 0
		if b >= 0.0:
			tmp_3 = -0.5 * t_4
		else:
			tmp_3 = t_0
		tmp_2 = tmp_3
	elif t_3 <= 5e-269:
		tmp_4 = 0
		if b >= 0.0:
			tmp_4 = t_1
		else:
			tmp_4 = 2.0 / math.sqrt(math.fabs(((a / c) * -4.0)))
		tmp_2 = tmp_4
	elif t_3 <= 4e+279:
		tmp_5 = 0
		if b >= 0.0:
			tmp_5 = t_1
		else:
			tmp_5 = 2.0 / (math.sqrt((-4.0 * a)) / math.sqrt(c))
		tmp_2 = tmp_5
	elif b >= 0.0:
		tmp_2 = -0.5 * (-1.0 * t_4)
	else:
		tmp_2 = t_0
	return tmp_2

Julia

function code(a, b, c)
	t_0 = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))))
	t_1 = Float64(-0.5 * Float64(sqrt(Float64(-4.0 * Float64(a * c))) / a))
	t_2 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(Float64(Float64(-b) - t_2) / Float64(2.0 * a));
	else
		tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_2));
	end
	t_3 = tmp
	t_4 = sqrt(Float64(-4.0 * Float64(c / a)))
	tmp_2 = 0.0
	if (t_3 <= Float64(-Inf))
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(-0.5 * t_4);
		else
			tmp_3 = t_0;
		end
		tmp_2 = tmp_3;
	elseif (t_3 <= 5e-269)
		tmp_4 = 0.0
		if (b >= 0.0)
			tmp_4 = t_1;
		else
			tmp_4 = Float64(2.0 / sqrt(abs(Float64(Float64(a / c) * -4.0))));
		end
		tmp_2 = tmp_4;
	elseif (t_3 <= 4e+279)
		tmp_5 = 0.0
		if (b >= 0.0)
			tmp_5 = t_1;
		else
			tmp_5 = Float64(2.0 / Float64(sqrt(Float64(-4.0 * a)) / sqrt(c)));
		end
		tmp_2 = tmp_5;
	elseif (b >= 0.0)
		tmp_2 = Float64(-0.5 * Float64(-1.0 * t_4));
	else
		tmp_2 = t_0;
	end
	return tmp_2
end

MATLAB

function tmp_7 = code(a, b, c)
	t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	t_1 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
	t_2 = sqrt(((b * b) - ((4.0 * a) * c)));
	tmp = 0.0;
	if (b >= 0.0)
		tmp = (-b - t_2) / (2.0 * a);
	else
		tmp = (2.0 * c) / (-b + t_2);
	end
	t_3 = tmp;
	t_4 = sqrt((-4.0 * (c / a)));
	tmp_3 = 0.0;
	if (t_3 <= -Inf)
		tmp_4 = 0.0;
		if (b >= 0.0)
			tmp_4 = -0.5 * t_4;
		else
			tmp_4 = t_0;
		end
		tmp_3 = tmp_4;
	elseif (t_3 <= 5e-269)
		tmp_5 = 0.0;
		if (b >= 0.0)
			tmp_5 = t_1;
		else
			tmp_5 = 2.0 / sqrt(abs(((a / c) * -4.0)));
		end
		tmp_3 = tmp_5;
	elseif (t_3 <= 4e+279)
		tmp_6 = 0.0;
		if (b >= 0.0)
			tmp_6 = t_1;
		else
			tmp_6 = 2.0 / (sqrt((-4.0 * a)) / sqrt(c));
		end
		tmp_3 = tmp_6;
	elseif (b >= 0.0)
		tmp_3 = -0.5 * (-1.0 * t_4);
	else
		tmp_3 = t_0;
	end
	tmp_7 = tmp_3;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[(-0.5 * N[(N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision]}, Block[{t$95$2 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$3 = If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$2), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$2), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$4 = N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[t$95$3, (-Infinity)], If[GreaterEqual[b, 0.0], N[(-0.5 * t$95$4), $MachinePrecision], t$95$0], If[LessEqual[t$95$3, 5e-269], If[GreaterEqual[b, 0.0], t$95$1, N[(2.0 / N[Sqrt[N[Abs[N[(N[(a / c), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], If[LessEqual[t$95$3, 4e+279], If[GreaterEqual[b, 0.0], t$95$1, N[(2.0 / N[(N[Sqrt[N[(-4.0 * a), $MachinePrecision]], $MachinePrecision] / N[Sqrt[c], $MachinePrecision]), $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 * t$95$4), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]]]]

Derivation

1. Split input into 4 regimes

2. if (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))))) < -inf.0

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-/.f64 16.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 16.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   if -inf.0 < (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))))) < 4.99999999999999979e-269

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

       2. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       3. lift-*.f64 21.6%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       4. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       5. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       6. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       7. sqr-abs-rev N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4}\right| \cdot \left|\sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       8. mul-fabs N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       9. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       10. lift-sqrt.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}\right|}}\\ \end{array} \]

       11. rem-square-sqrt N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       12. lower-fabs.f64 23.7%

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]

   11. Applied rewrites 23.7%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]

   if 4.99999999999999979e-269 < (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))))) < 4.00000000000000023e279

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   10. Step-by-step derivation

       1. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

       2. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

       3. lift-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

       4. associate-*r/ N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{-4 \cdot a}{c}}}}\\ \end{array} \]

       5. sqrt-div N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\frac{\sqrt{-4 \cdot a}}{\sqrt{c}}}}\\ \end{array} \]

       6. lower-unsound-/.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\frac{\sqrt{-4 \cdot a}}{\sqrt{c}}}}\\ \end{array} \]

       7. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{\color{blue}{a \cdot -4}}}{\sqrt{c}}}\\ \end{array} \]

       8. lower-unsound-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\color{blue}{\sqrt{a \cdot -4}}}{\sqrt{c}}}\\ \end{array} \]

       9. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{\color{blue}{-4 \cdot a}}}{\sqrt{c}}}\\ \end{array} \]

       10. lower-*.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{\color{blue}{-4 \cdot a}}}{\sqrt{c}}}\\ \end{array} \]

       11. lower-unsound-sqrt.f64 22.2%

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\frac{\sqrt{-4 \cdot a}}{\color{blue}{\sqrt{c}}}}\\ \end{array} \]

   11. Applied rewrites 22.2%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\frac{\sqrt{-4 \cdot a}}{\sqrt{c}}}}\\ \end{array} \]

   if 4.00000000000000023e279 < (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c))))))

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       4. lower-/.f64 15.8%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 15.8%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 4 regimes into one program.
4. Add Preprocessing

Alternative 17: 28.1% accurate, 0.3× speedup

Math

\[\begin{array}{l} t_0 := \frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ t_1 := \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}\\ t_2 := \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - t\_1}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + t\_1}\\ \end{array}\\ t_3 := \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{if}\;t\_2 \leq -\infty:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot t\_3\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array}\\ \mathbf{elif}\;t\_2 \leq 5 \cdot 10^{+247}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\frac{a}{c} \cdot -4\right|}}\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot t\_3\right)\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (/ 2.0 (sqrt (* -4.0 (/ a c)))))
        (t_1 (sqrt (- (* b b) (* (* 4.0 a) c))))
        (t_2
         (if (>= b 0.0)
           (/ (- (- b) t_1) (* 2.0 a))
           (/ (* 2.0 c) (+ (- b) t_1))))
        (t_3 (sqrt (* -4.0 (/ c a)))))
   (if (<= t_2 (- INFINITY))
     (if (>= b 0.0) (* -0.5 t_3) t_0)
     (if (<= t_2 5e+247)
       (if (>= b 0.0)
         (* -0.5 (/ (sqrt (* -4.0 (* a c))) a))
         (/ 2.0 (sqrt (fabs (* (/ a c) -4.0)))))
       (if (>= b 0.0) (* -0.5 (* -1.0 t_3)) t_0)))))

C

double code(double a, double b, double c) {
	double t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	double t_1 = sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_1) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_1);
	}
	double t_2 = tmp;
	double t_3 = sqrt((-4.0 * (c / a)));
	double tmp_2;
	if (t_2 <= -((double) INFINITY)) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * t_3;
		} else {
			tmp_3 = t_0;
		}
		tmp_2 = tmp_3;
	} else if (t_2 <= 5e+247) {
		double tmp_4;
		if (b >= 0.0) {
			tmp_4 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_4 = 2.0 / sqrt(fabs(((a / c) * -4.0)));
		}
		tmp_2 = tmp_4;
	} else if (b >= 0.0) {
		tmp_2 = -0.5 * (-1.0 * t_3);
	} else {
		tmp_2 = t_0;
	}
	return tmp_2;
}

Java

public static double code(double a, double b, double c) {
	double t_0 = 2.0 / Math.sqrt((-4.0 * (a / c)));
	double t_1 = Math.sqrt(((b * b) - ((4.0 * a) * c)));
	double tmp;
	if (b >= 0.0) {
		tmp = (-b - t_1) / (2.0 * a);
	} else {
		tmp = (2.0 * c) / (-b + t_1);
	}
	double t_2 = tmp;
	double t_3 = Math.sqrt((-4.0 * (c / a)));
	double tmp_2;
	if (t_2 <= -Double.POSITIVE_INFINITY) {
		double tmp_3;
		if (b >= 0.0) {
			tmp_3 = -0.5 * t_3;
		} else {
			tmp_3 = t_0;
		}
		tmp_2 = tmp_3;
	} else if (t_2 <= 5e+247) {
		double tmp_4;
		if (b >= 0.0) {
			tmp_4 = -0.5 * (Math.sqrt((-4.0 * (a * c))) / a);
		} else {
			tmp_4 = 2.0 / Math.sqrt(Math.abs(((a / c) * -4.0)));
		}
		tmp_2 = tmp_4;
	} else if (b >= 0.0) {
		tmp_2 = -0.5 * (-1.0 * t_3);
	} else {
		tmp_2 = t_0;
	}
	return tmp_2;
}

Python

def code(a, b, c):
	t_0 = 2.0 / math.sqrt((-4.0 * (a / c)))
	t_1 = math.sqrt(((b * b) - ((4.0 * a) * c)))
	tmp = 0
	if b >= 0.0:
		tmp = (-b - t_1) / (2.0 * a)
	else:
		tmp = (2.0 * c) / (-b + t_1)
	t_2 = tmp
	t_3 = math.sqrt((-4.0 * (c / a)))
	tmp_2 = 0
	if t_2 <= -math.inf:
		tmp_3 = 0
		if b >= 0.0:
			tmp_3 = -0.5 * t_3
		else:
			tmp_3 = t_0
		tmp_2 = tmp_3
	elif t_2 <= 5e+247:
		tmp_4 = 0
		if b >= 0.0:
			tmp_4 = -0.5 * (math.sqrt((-4.0 * (a * c))) / a)
		else:
			tmp_4 = 2.0 / math.sqrt(math.fabs(((a / c) * -4.0)))
		tmp_2 = tmp_4
	elif b >= 0.0:
		tmp_2 = -0.5 * (-1.0 * t_3)
	else:
		tmp_2 = t_0
	return tmp_2

Julia

function code(a, b, c)
	t_0 = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))))
	t_1 = sqrt(Float64(Float64(b * b) - Float64(Float64(4.0 * a) * c)))
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(Float64(Float64(-b) - t_1) / Float64(2.0 * a));
	else
		tmp = Float64(Float64(2.0 * c) / Float64(Float64(-b) + t_1));
	end
	t_2 = tmp
	t_3 = sqrt(Float64(-4.0 * Float64(c / a)))
	tmp_2 = 0.0
	if (t_2 <= Float64(-Inf))
		tmp_3 = 0.0
		if (b >= 0.0)
			tmp_3 = Float64(-0.5 * t_3);
		else
			tmp_3 = t_0;
		end
		tmp_2 = tmp_3;
	elseif (t_2 <= 5e+247)
		tmp_4 = 0.0
		if (b >= 0.0)
			tmp_4 = Float64(-0.5 * Float64(sqrt(Float64(-4.0 * Float64(a * c))) / a));
		else
			tmp_4 = Float64(2.0 / sqrt(abs(Float64(Float64(a / c) * -4.0))));
		end
		tmp_2 = tmp_4;
	elseif (b >= 0.0)
		tmp_2 = Float64(-0.5 * Float64(-1.0 * t_3));
	else
		tmp_2 = t_0;
	end
	return tmp_2
end

MATLAB

function tmp_6 = code(a, b, c)
	t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	t_1 = sqrt(((b * b) - ((4.0 * a) * c)));
	tmp = 0.0;
	if (b >= 0.0)
		tmp = (-b - t_1) / (2.0 * a);
	else
		tmp = (2.0 * c) / (-b + t_1);
	end
	t_2 = tmp;
	t_3 = sqrt((-4.0 * (c / a)));
	tmp_3 = 0.0;
	if (t_2 <= -Inf)
		tmp_4 = 0.0;
		if (b >= 0.0)
			tmp_4 = -0.5 * t_3;
		else
			tmp_4 = t_0;
		end
		tmp_3 = tmp_4;
	elseif (t_2 <= 5e+247)
		tmp_5 = 0.0;
		if (b >= 0.0)
			tmp_5 = -0.5 * (sqrt((-4.0 * (a * c))) / a);
		else
			tmp_5 = 2.0 / sqrt(abs(((a / c) * -4.0)));
		end
		tmp_3 = tmp_5;
	elseif (b >= 0.0)
		tmp_3 = -0.5 * (-1.0 * t_3);
	else
		tmp_3 = t_0;
	end
	tmp_6 = tmp_3;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(N[(b * b), $MachinePrecision] - N[(N[(4.0 * a), $MachinePrecision] * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, Block[{t$95$2 = If[GreaterEqual[b, 0.0], N[(N[((-b) - t$95$1), $MachinePrecision] / N[(2.0 * a), $MachinePrecision]), $MachinePrecision], N[(N[(2.0 * c), $MachinePrecision] / N[((-b) + t$95$1), $MachinePrecision]), $MachinePrecision]]}, Block[{t$95$3 = N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[t$95$2, (-Infinity)], If[GreaterEqual[b, 0.0], N[(-0.5 * t$95$3), $MachinePrecision], t$95$0], If[LessEqual[t$95$2, 5e+247], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(N[Sqrt[N[(-4.0 * N[(a * c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision] / a), $MachinePrecision]), $MachinePrecision], N[(2.0 / N[Sqrt[N[Abs[N[(N[(a / c), $MachinePrecision] * -4.0), $MachinePrecision]], $MachinePrecision]], $MachinePrecision]), $MachinePrecision]], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 * t$95$3), $MachinePrecision]), $MachinePrecision], t$95$0]]]]]]]

Derivation

1. Split input into 3 regimes

2. if (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))))) < -inf.0

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-/.f64 16.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 16.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   if -inf.0 < (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))))) < 5.00000000000000023e247

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   10. Step-by-step derivation

       1. lift-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

       2. *-commutative N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       3. lift-*.f64 21.6%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       4. rem-square-sqrt N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       5. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}}}\\ \end{array} \]

       6. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}}}\\ \end{array} \]

       7. sqr-abs-rev N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4}\right| \cdot \left|\sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       8. mul-fabs N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}}\\ \end{array} \]

       9. lift-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\sqrt{\frac{a}{c} \cdot -4}} \cdot \sqrt{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       10. lift-sqrt.f64 N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\sqrt{\frac{a}{c} \cdot -4} \cdot \color{blue}{\sqrt{\frac{a}{c} \cdot -4}}\right|}}\\ \end{array} \]

       11. rem-square-sqrt N/A

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\left|\color{blue}{\frac{a}{c} \cdot -4}\right|}}\\ \end{array} \]

       12. lower-fabs.f64 23.7%

           \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]

   11. Applied rewrites 23.7%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{\left|\frac{a}{c} \cdot -4\right|}}}\\ \end{array} \]

   if 5.00000000000000023e247 < (if (>=.f64 b #s(literal 0 binary64)) (/.f64 (-.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c)))) (*.f64 #s(literal 2 binary64) a)) (/.f64 (*.f64 #s(literal 2 binary64) c) (+.f64 (neg.f64 b) (sqrt.f64 (-.f64 (*.f64 b b) (*.f64 (*.f64 #s(literal 4 binary64) a) c))))))

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       4. lower-/.f64 15.8%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 15.8%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 3 regimes into one program.
4. Add Preprocessing

Alternative 18: 22.8% accurate, 1.2× speedup

Math

\[\begin{array}{l} t_0 := \frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ t_1 := \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{if}\;c \leq -4.4 \cdot 10^{-264}:\\ \;\;\;\;\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot t\_1\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array}\\ \mathbf{elif}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot t\_1\right)\\ \mathbf{else}:\\ \;\;\;\;t\_0\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (let* ((t_0 (/ 2.0 (sqrt (* -4.0 (/ a c))))) (t_1 (sqrt (* -4.0 (/ c a)))))
   (if (<= c -4.4e-264)
     (if (>= b 0.0) (* -0.5 t_1) t_0)
     (if (>= b 0.0) (* -0.5 (* -1.0 t_1)) t_0))))

C

double code(double a, double b, double c) {
	double t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	double t_1 = sqrt((-4.0 * (c / a)));
	double tmp_1;
	if (c <= -4.4e-264) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * t_1;
		} else {
			tmp_2 = t_0;
		}
		tmp_1 = tmp_2;
	} else if (b >= 0.0) {
		tmp_1 = -0.5 * (-1.0 * t_1);
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Fortran

module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, b, c)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8) :: t_0
    real(8) :: t_1
    real(8) :: tmp
    real(8) :: tmp_1
    real(8) :: tmp_2
    t_0 = 2.0d0 / sqrt(((-4.0d0) * (a / c)))
    t_1 = sqrt(((-4.0d0) * (c / a)))
    if (c <= (-4.4d-264)) then
        if (b >= 0.0d0) then
            tmp_2 = (-0.5d0) * t_1
        else
            tmp_2 = t_0
        end if
        tmp_1 = tmp_2
    else if (b >= 0.0d0) then
        tmp_1 = (-0.5d0) * ((-1.0d0) * t_1)
    else
        tmp_1 = t_0
    end if
    code = tmp_1
end function

Java

public static double code(double a, double b, double c) {
	double t_0 = 2.0 / Math.sqrt((-4.0 * (a / c)));
	double t_1 = Math.sqrt((-4.0 * (c / a)));
	double tmp_1;
	if (c <= -4.4e-264) {
		double tmp_2;
		if (b >= 0.0) {
			tmp_2 = -0.5 * t_1;
		} else {
			tmp_2 = t_0;
		}
		tmp_1 = tmp_2;
	} else if (b >= 0.0) {
		tmp_1 = -0.5 * (-1.0 * t_1);
	} else {
		tmp_1 = t_0;
	}
	return tmp_1;
}

Python

def code(a, b, c):
	t_0 = 2.0 / math.sqrt((-4.0 * (a / c)))
	t_1 = math.sqrt((-4.0 * (c / a)))
	tmp_1 = 0
	if c <= -4.4e-264:
		tmp_2 = 0
		if b >= 0.0:
			tmp_2 = -0.5 * t_1
		else:
			tmp_2 = t_0
		tmp_1 = tmp_2
	elif b >= 0.0:
		tmp_1 = -0.5 * (-1.0 * t_1)
	else:
		tmp_1 = t_0
	return tmp_1

Julia

function code(a, b, c)
	t_0 = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))))
	t_1 = sqrt(Float64(-4.0 * Float64(c / a)))
	tmp_1 = 0.0
	if (c <= -4.4e-264)
		tmp_2 = 0.0
		if (b >= 0.0)
			tmp_2 = Float64(-0.5 * t_1);
		else
			tmp_2 = t_0;
		end
		tmp_1 = tmp_2;
	elseif (b >= 0.0)
		tmp_1 = Float64(-0.5 * Float64(-1.0 * t_1));
	else
		tmp_1 = t_0;
	end
	return tmp_1
end

MATLAB

function tmp_4 = code(a, b, c)
	t_0 = 2.0 / sqrt((-4.0 * (a / c)));
	t_1 = sqrt((-4.0 * (c / a)));
	tmp_2 = 0.0;
	if (c <= -4.4e-264)
		tmp_3 = 0.0;
		if (b >= 0.0)
			tmp_3 = -0.5 * t_1;
		else
			tmp_3 = t_0;
		end
		tmp_2 = tmp_3;
	elseif (b >= 0.0)
		tmp_2 = -0.5 * (-1.0 * t_1);
	else
		tmp_2 = t_0;
	end
	tmp_4 = tmp_2;
end

Wolfram

code[a_, b_, c_] := Block[{t$95$0 = N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]}, Block[{t$95$1 = N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]}, If[LessEqual[c, -4.4e-264], If[GreaterEqual[b, 0.0], N[(-0.5 * t$95$1), $MachinePrecision], t$95$0], If[GreaterEqual[b, 0.0], N[(-0.5 * N[(-1.0 * t$95$1), $MachinePrecision]), $MachinePrecision], t$95$0]]]]

Derivation

1. Split input into 2 regimes

2. if c < -4.39999999999999988e-264

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-/.f64 16.1%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 16.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   if -4.39999999999999988e-264 < c

   1. Initial program 72.1%

      \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
   2. Step-by-step derivation

   3. Applied rewrites 72.1%

      \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

   4. Taylor expanded in c around inf

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   5. Step-by-step derivation

      1. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      2. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      3. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

      4. lower-/.f64 44.1%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

   6. Applied rewrites 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   7. Taylor expanded in b around 0

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   8. Step-by-step derivation

      1. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      2. lower-/.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      3. lower-sqrt.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      4. lower-*.f64 N/A

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

      5. lower-*.f64 21.6%

         \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   9. Applied rewrites 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   10. Taylor expanded in a around -inf

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
   11. Step-by-step derivation

       1. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       2. lower-sqrt.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       3. lower-*.f64 N/A

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

       4. lower-/.f64 15.8%

          \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \sqrt{-4 \cdot \frac{c}{a}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   12. Applied rewrites 15.8%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \left(-1 \cdot \color{blue}{\sqrt{-4 \cdot \frac{c}{a}}}\right)\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
3. Recombined 2 regimes into one program.
4. Add Preprocessing

Alternative 19: 16.1% accurate, 1.7× speedup

Math

\[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

FPCore

(FPCore (a b c)
 :precision binary64
 (if (>= b 0.0)
   (* -0.5 (sqrt (* -4.0 (/ c a))))
   (/ 2.0 (sqrt (* -4.0 (/ a c))))))

C

double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -0.5 * sqrt((-4.0 * (c / a)));
	} else {
		tmp = 2.0 / sqrt((-4.0 * (a / c)));
	}
	return tmp;
}

Fortran

module fmin_fmax_functions
    implicit none
    private
    public fmax
    public fmin

    interface fmax
        module procedure fmax88
        module procedure fmax44
        module procedure fmax84
        module procedure fmax48
    end interface
    interface fmin
        module procedure fmin88
        module procedure fmin44
        module procedure fmin84
        module procedure fmin48
    end interface
contains
    real(8) function fmax88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(4) function fmax44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, max(x, y), y /= y), x /= x)
    end function
    real(8) function fmax84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, max(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmax48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), max(dble(x), y), y /= y), x /= x)
    end function
    real(8) function fmin88(x, y) result (res)
        real(8), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(4) function fmin44(x, y) result (res)
        real(4), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(y, merge(x, min(x, y), y /= y), x /= x)
    end function
    real(8) function fmin84(x, y) result(res)
        real(8), intent (in) :: x
        real(4), intent (in) :: y
        res = merge(dble(y), merge(x, min(x, dble(y)), y /= y), x /= x)
    end function
    real(8) function fmin48(x, y) result(res)
        real(4), intent (in) :: x
        real(8), intent (in) :: y
        res = merge(y, merge(dble(x), min(dble(x), y), y /= y), x /= x)
    end function
end module

real(8) function code(a, b, c)
use fmin_fmax_functions
    real(8), intent (in) :: a
    real(8), intent (in) :: b
    real(8), intent (in) :: c
    real(8) :: tmp
    if (b >= 0.0d0) then
        tmp = (-0.5d0) * sqrt(((-4.0d0) * (c / a)))
    else
        tmp = 2.0d0 / sqrt(((-4.0d0) * (a / c)))
    end if
    code = tmp
end function

Java

public static double code(double a, double b, double c) {
	double tmp;
	if (b >= 0.0) {
		tmp = -0.5 * Math.sqrt((-4.0 * (c / a)));
	} else {
		tmp = 2.0 / Math.sqrt((-4.0 * (a / c)));
	}
	return tmp;
}

Python

def code(a, b, c):
	tmp = 0
	if b >= 0.0:
		tmp = -0.5 * math.sqrt((-4.0 * (c / a)))
	else:
		tmp = 2.0 / math.sqrt((-4.0 * (a / c)))
	return tmp

Julia

function code(a, b, c)
	tmp = 0.0
	if (b >= 0.0)
		tmp = Float64(-0.5 * sqrt(Float64(-4.0 * Float64(c / a))));
	else
		tmp = Float64(2.0 / sqrt(Float64(-4.0 * Float64(a / c))));
	end
	return tmp
end

MATLAB

function tmp_2 = code(a, b, c)
	tmp = 0.0;
	if (b >= 0.0)
		tmp = -0.5 * sqrt((-4.0 * (c / a)));
	else
		tmp = 2.0 / sqrt((-4.0 * (a / c)));
	end
	tmp_2 = tmp;
end

Wolfram

code[a_, b_, c_] := If[GreaterEqual[b, 0.0], N[(-0.5 * N[Sqrt[N[(-4.0 * N[(c / a), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision], N[(2.0 / N[Sqrt[N[(-4.0 * N[(a / c), $MachinePrecision]), $MachinePrecision]], $MachinePrecision]), $MachinePrecision]]

Derivation

1. Initial program 72.1%

   \[\begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{\left(-b\right) - \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}{2 \cdot a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2 \cdot c}{\left(-b\right) + \sqrt{b \cdot b - \left(4 \cdot a\right) \cdot c}}\\ \end{array} \]
2. Step-by-step derivation

3. Applied rewrites 72.1%

   \[\leadsto \color{blue}{\begin{array}{l} \color{blue}{\mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{c + c}{\sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)} - b}\\ } \end{array}} \]

4. Taylor expanded in c around inf

   \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
5. Step-by-step derivation

   1. lower-/.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\color{blue}{\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

   2. lower-sqrt.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\color{blue}{\sqrt{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

   3. lower-*.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{\frac{-1}{2}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{\color{blue}{-4 \cdot \frac{a}{c}}}}\\ \end{array} \]

   4. lower-/.f64 44.1%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \color{blue}{\frac{a}{c}}}}\\ \end{array} \]

6. Applied rewrites 44.1%

   \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\left(b + \sqrt{\mathsf{fma}\left(c \cdot -4, a, b \cdot b\right)}\right) \cdot \frac{-0.5}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

7. Taylor expanded in b around 0

   \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
8. Step-by-step derivation

   1. lower-*.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \color{blue}{\frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   2. lower-/.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{\color{blue}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   3. lower-sqrt.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   4. lower-*.f64 N/A

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

   5. lower-*.f64 21.6%

      \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

9. Applied rewrites 21.6%

   \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\color{blue}{-0.5 \cdot \frac{\sqrt{-4 \cdot \left(a \cdot c\right)}}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

10. Taylor expanded in a around inf

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
11. Step-by-step derivation

    1. lower-sqrt.f64 N/A

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

    2. lower-*.f64 N/A

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;\frac{-1}{2} \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

    3. lower-/.f64 16.1%

       \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]

12. Applied rewrites 16.1%

    \[\leadsto \begin{array}{l} \mathbf{if}\;b \geq 0:\\ \;\;\;\;-0.5 \cdot \sqrt{-4 \cdot \frac{c}{a}}\\ \mathbf{else}:\\ \;\;\;\;\frac{2}{\sqrt{-4 \cdot \frac{a}{c}}}\\ \end{array} \]
13. Add Preprocessing

Reproduce

herbie shell --seed 2025183 
(FPCore (a b c)
  :name "jeff quadratic root 1"
  :precision binary64
  (if (>= b 0.0) (/ (- (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))) (* 2.0 a)) (/ (* 2.0 c) (+ (- b) (sqrt (- (* b b) (* (* 4.0 a) c)))))))