(FPCore (d1 d2 d3) :precision binary64 (+ (* d1 d2) (* d1 d3)))
(FPCore (d1 d2 d3) :precision binary64 (* d1 (+ d3 d2)))
double code(double d1, double d2, double d3) {
return (d1 * d2) + (d1 * d3);
}
double code(double d1, double d2, double d3) {
return d1 * (d3 + d2);
}
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = (d1 * d2) + (d1 * d3)
end function
real(8) function code(d1, d2, d3)
real(8), intent (in) :: d1
real(8), intent (in) :: d2
real(8), intent (in) :: d3
code = d1 * (d3 + d2)
end function
public static double code(double d1, double d2, double d3) {
return (d1 * d2) + (d1 * d3);
}
public static double code(double d1, double d2, double d3) {
return d1 * (d3 + d2);
}
def code(d1, d2, d3): return (d1 * d2) + (d1 * d3)
def code(d1, d2, d3): return d1 * (d3 + d2)
function code(d1, d2, d3) return Float64(Float64(d1 * d2) + Float64(d1 * d3)) end
function code(d1, d2, d3) return Float64(d1 * Float64(d3 + d2)) end
function tmp = code(d1, d2, d3) tmp = (d1 * d2) + (d1 * d3); end
function tmp = code(d1, d2, d3) tmp = d1 * (d3 + d2); end
code[d1_, d2_, d3_] := N[(N[(d1 * d2), $MachinePrecision] + N[(d1 * d3), $MachinePrecision]), $MachinePrecision]
code[d1_, d2_, d3_] := N[(d1 * N[(d3 + d2), $MachinePrecision]), $MachinePrecision]
d1 \cdot d2 + d1 \cdot d3
d1 \cdot \left(d3 + d2\right)
Results
| Original | 100.0% |
|---|---|
| Target | 100.0% |
| Herbie | 100.0% |
Initial program 100.0%
Simplified100.0%
herbie shell --seed 2023151
(FPCore (d1 d2 d3)
:name "FastMath dist"
:precision binary64
:herbie-target
(* d1 (+ d2 d3))
(+ (* d1 d2) (* d1 d3)))