
(FPCore (a b c d) :precision binary64 (* a (+ (+ b c) d)))
double code(double a, double b, double c, double d) {
return a * ((b + c) + d);
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = a * ((b + c) + d)
end function
public static double code(double a, double b, double c, double d) {
return a * ((b + c) + d);
}
def code(a, b, c, d): return a * ((b + c) + d)
function code(a, b, c, d) return Float64(a * Float64(Float64(b + c) + d)) end
function tmp = code(a, b, c, d) tmp = a * ((b + c) + d); end
code[a_, b_, c_, d_] := N[(a * N[(N[(b + c), $MachinePrecision] + d), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(\left(b + c\right) + d\right)
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b c d) :precision binary64 (* a (+ (+ b c) d)))
double code(double a, double b, double c, double d) {
return a * ((b + c) + d);
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = a * ((b + c) + d)
end function
public static double code(double a, double b, double c, double d) {
return a * ((b + c) + d);
}
def code(a, b, c, d): return a * ((b + c) + d)
function code(a, b, c, d) return Float64(a * Float64(Float64(b + c) + d)) end
function tmp = code(a, b, c, d) tmp = a * ((b + c) + d); end
code[a_, b_, c_, d_] := N[(a * N[(N[(b + c), $MachinePrecision] + d), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(\left(b + c\right) + d\right)
\end{array}
(FPCore (a b c d) :precision binary64 (+ (* (+ b d) a) (* a c)))
double code(double a, double b, double c, double d) {
return ((b + d) * a) + (a * c);
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = ((b + d) * a) + (a * c)
end function
public static double code(double a, double b, double c, double d) {
return ((b + d) * a) + (a * c);
}
def code(a, b, c, d): return ((b + d) * a) + (a * c)
function code(a, b, c, d) return Float64(Float64(Float64(b + d) * a) + Float64(a * c)) end
function tmp = code(a, b, c, d) tmp = ((b + d) * a) + (a * c); end
code[a_, b_, c_, d_] := N[(N[(N[(b + d), $MachinePrecision] * a), $MachinePrecision] + N[(a * c), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(b + d\right) \cdot a + a \cdot c
\end{array}
Initial program 99.9%
*-lowering-*.f64N/A
associate-+l+N/A
+-lowering-+.f64N/A
+-lowering-+.f6499.9%
Simplified99.9%
+-commutativeN/A
associate-+r+N/A
distribute-rgt-inN/A
+-lowering-+.f64N/A
*-lowering-*.f64N/A
+-lowering-+.f64N/A
*-commutativeN/A
*-lowering-*.f64100.0%
Applied egg-rr100.0%
(FPCore (a b c d) :precision binary64 (* a (+ b (+ d c))))
double code(double a, double b, double c, double d) {
return a * (b + (d + c));
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = a * (b + (d + c))
end function
public static double code(double a, double b, double c, double d) {
return a * (b + (d + c));
}
def code(a, b, c, d): return a * (b + (d + c))
function code(a, b, c, d) return Float64(a * Float64(b + Float64(d + c))) end
function tmp = code(a, b, c, d) tmp = a * (b + (d + c)); end
code[a_, b_, c_, d_] := N[(a * N[(b + N[(d + c), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(b + \left(d + c\right)\right)
\end{array}
Initial program 99.9%
*-lowering-*.f64N/A
associate-+l+N/A
+-lowering-+.f64N/A
+-lowering-+.f6499.9%
Simplified99.9%
Final simplification99.9%
(FPCore (a b c d) :precision binary64 (* a (+ d c)))
double code(double a, double b, double c, double d) {
return a * (d + c);
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = a * (d + c)
end function
public static double code(double a, double b, double c, double d) {
return a * (d + c);
}
def code(a, b, c, d): return a * (d + c)
function code(a, b, c, d) return Float64(a * Float64(d + c)) end
function tmp = code(a, b, c, d) tmp = a * (d + c); end
code[a_, b_, c_, d_] := N[(a * N[(d + c), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot \left(d + c\right)
\end{array}
Initial program 99.9%
*-lowering-*.f64N/A
associate-+l+N/A
+-lowering-+.f64N/A
+-lowering-+.f6499.9%
Simplified99.9%
Taylor expanded in b around 0
*-lowering-*.f64N/A
+-lowering-+.f6466.4%
Simplified66.4%
Final simplification66.4%
(FPCore (a b c d) :precision binary64 (* d a))
double code(double a, double b, double c, double d) {
return d * a;
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = d * a
end function
public static double code(double a, double b, double c, double d) {
return d * a;
}
def code(a, b, c, d): return d * a
function code(a, b, c, d) return Float64(d * a) end
function tmp = code(a, b, c, d) tmp = d * a; end
code[a_, b_, c_, d_] := N[(d * a), $MachinePrecision]
\begin{array}{l}
\\
d \cdot a
\end{array}
Initial program 99.9%
*-lowering-*.f64N/A
associate-+l+N/A
+-lowering-+.f64N/A
+-lowering-+.f6499.9%
Simplified99.9%
Taylor expanded in d around inf
*-lowering-*.f6436.6%
Simplified36.6%
Final simplification36.6%
(FPCore (a b c d) :precision binary64 (+ (* a b) (* a (+ c d))))
double code(double a, double b, double c, double d) {
return (a * b) + (a * (c + d));
}
real(8) function code(a, b, c, d)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8), intent (in) :: c
real(8), intent (in) :: d
code = (a * b) + (a * (c + d))
end function
public static double code(double a, double b, double c, double d) {
return (a * b) + (a * (c + d));
}
def code(a, b, c, d): return (a * b) + (a * (c + d))
function code(a, b, c, d) return Float64(Float64(a * b) + Float64(a * Float64(c + d))) end
function tmp = code(a, b, c, d) tmp = (a * b) + (a * (c + d)); end
code[a_, b_, c_, d_] := N[(N[(a * b), $MachinePrecision] + N[(a * N[(c + d), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot b + a \cdot \left(c + d\right)
\end{array}
herbie shell --seed 2024138
(FPCore (a b c d)
:name "Expression, p14"
:precision binary64
:pre (and (and (and (and (<= 56789.0 a) (<= a 98765.0)) (and (<= 0.0 b) (<= b 1.0))) (and (<= 0.0 c) (<= c 0.0016773))) (and (<= 0.0 d) (<= d 0.0016773)))
:alt
(! :herbie-platform default (+ (* a b) (* a (+ c d))))
(* a (+ (+ b c) d)))