
(FPCore (x y z) :precision binary64 (+ x (/ (* y y) z)))
double code(double x, double y, double z) {
return x + ((y * y) / z);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + ((y * y) / z)
end function
public static double code(double x, double y, double z) {
return x + ((y * y) / z);
}
def code(x, y, z): return x + ((y * y) / z)
function code(x, y, z) return Float64(x + Float64(Float64(y * y) / z)) end
function tmp = code(x, y, z) tmp = x + ((y * y) / z); end
code[x_, y_, z_] := N[(x + N[(N[(y * y), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{y \cdot y}{z}
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 3 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x y z) :precision binary64 (+ x (/ (* y y) z)))
double code(double x, double y, double z) {
return x + ((y * y) / z);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + ((y * y) / z)
end function
public static double code(double x, double y, double z) {
return x + ((y * y) / z);
}
def code(x, y, z): return x + ((y * y) / z)
function code(x, y, z) return Float64(x + Float64(Float64(y * y) / z)) end
function tmp = code(x, y, z) tmp = x + ((y * y) / z); end
code[x_, y_, z_] := N[(x + N[(N[(y * y), $MachinePrecision] / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{y \cdot y}{z}
\end{array}
(FPCore (x y z) :precision binary64 (+ x (/ y (/ z y))))
double code(double x, double y, double z) {
return x + (y / (z / y));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + (y / (z / y))
end function
public static double code(double x, double y, double z) {
return x + (y / (z / y));
}
def code(x, y, z): return x + (y / (z / y))
function code(x, y, z) return Float64(x + Float64(y / Float64(z / y))) end
function tmp = code(x, y, z) tmp = x + (y / (z / y)); end
code[x_, y_, z_] := N[(x + N[(y / N[(z / y), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + \frac{y}{\frac{z}{y}}
\end{array}
Initial program 91.8%
associate-/l*N/A
clear-numN/A
un-div-invN/A
lower-/.f64N/A
lower-/.f6499.9
Applied egg-rr99.9%
(FPCore (x y z) :precision binary64 (fma (/ y z) y x))
double code(double x, double y, double z) {
return fma((y / z), y, x);
}
function code(x, y, z) return fma(Float64(y / z), y, x) end
code[x_, y_, z_] := N[(N[(y / z), $MachinePrecision] * y + x), $MachinePrecision]
\begin{array}{l}
\\
\mathsf{fma}\left(\frac{y}{z}, y, x\right)
\end{array}
Initial program 91.8%
lift-*.f64N/A
lift-/.f64N/A
+-commutativeN/A
lift-/.f64N/A
lift-*.f64N/A
associate-*l/N/A
lower-fma.f64N/A
lower-/.f6499.9
Applied egg-rr99.9%
(FPCore (x y z) :precision binary64 (* y (/ y z)))
double code(double x, double y, double z) {
return y * (y / z);
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = y * (y / z)
end function
public static double code(double x, double y, double z) {
return y * (y / z);
}
def code(x, y, z): return y * (y / z)
function code(x, y, z) return Float64(y * Float64(y / z)) end
function tmp = code(x, y, z) tmp = y * (y / z); end
code[x_, y_, z_] := N[(y * N[(y / z), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
y \cdot \frac{y}{z}
\end{array}
Initial program 91.8%
Taylor expanded in x around 0
lower-/.f64N/A
unpow2N/A
lower-*.f6443.2
Simplified43.2%
associate-*l/N/A
lift-/.f64N/A
lower-*.f6449.8
Applied egg-rr49.8%
Final simplification49.8%
(FPCore (x y z) :precision binary64 (+ x (* y (/ y z))))
double code(double x, double y, double z) {
return x + (y * (y / z));
}
real(8) function code(x, y, z)
real(8), intent (in) :: x
real(8), intent (in) :: y
real(8), intent (in) :: z
code = x + (y * (y / z))
end function
public static double code(double x, double y, double z) {
return x + (y * (y / z));
}
def code(x, y, z): return x + (y * (y / z))
function code(x, y, z) return Float64(x + Float64(y * Float64(y / z))) end
function tmp = code(x, y, z) tmp = x + (y * (y / z)); end
code[x_, y_, z_] := N[(x + N[(y * N[(y / z), $MachinePrecision]), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
x + y \cdot \frac{y}{z}
\end{array}
herbie shell --seed 2024207
(FPCore (x y z)
:name "Crypto.Random.Test:calculate from crypto-random-0.0.9"
:precision binary64
:alt
(! :herbie-platform default (+ x (* y (/ y z))))
(+ x (/ (* y y) z)))