
(FPCore (a b) :precision binary64 (- (* a a) (* b b)))
double code(double a, double b) {
return (a * a) - (b * b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a * a) - (b * b)
end function
public static double code(double a, double b) {
return (a * a) - (b * b);
}
def code(a, b): return (a * a) - (b * b)
function code(a, b) return Float64(Float64(a * a) - Float64(b * b)) end
function tmp = code(a, b) tmp = (a * a) - (b * b); end
code[a_, b_] := N[(N[(a * a), $MachinePrecision] - N[(b * b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot a - b \cdot b
\end{array}
Sampling outcomes in binary64 precision:
Herbie found 4 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (a b) :precision binary64 (- (* a a) (* b b)))
double code(double a, double b) {
return (a * a) - (b * b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a * a) - (b * b)
end function
public static double code(double a, double b) {
return (a * a) - (b * b);
}
def code(a, b): return (a * a) - (b * b)
function code(a, b) return Float64(Float64(a * a) - Float64(b * b)) end
function tmp = code(a, b) tmp = (a * a) - (b * b); end
code[a_, b_] := N[(N[(a * a), $MachinePrecision] - N[(b * b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
a \cdot a - b \cdot b
\end{array}
(FPCore (a b) :precision binary64 (if (<= a 2.3e+191) (fma a a (* b (- b))) (* a a)))
double code(double a, double b) {
double tmp;
if (a <= 2.3e+191) {
tmp = fma(a, a, (b * -b));
} else {
tmp = a * a;
}
return tmp;
}
function code(a, b) tmp = 0.0 if (a <= 2.3e+191) tmp = fma(a, a, Float64(b * Float64(-b))); else tmp = Float64(a * a); end return tmp end
code[a_, b_] := If[LessEqual[a, 2.3e+191], N[(a * a + N[(b * (-b)), $MachinePrecision]), $MachinePrecision], N[(a * a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq 2.3 \cdot 10^{+191}:\\
\;\;\;\;\mathsf{fma}\left(a, a, b \cdot \left(-b\right)\right)\\
\mathbf{else}:\\
\;\;\;\;a \cdot a\\
\end{array}
\end{array}
if a < 2.2999999999999999e191Initial program 96.0%
sqr-neg96.0%
cancel-sign-sub96.0%
fma-def98.7%
Simplified98.7%
if 2.2999999999999999e191 < a Initial program 71.4%
Taylor expanded in a around inf 96.4%
unpow296.4%
Simplified96.4%
Final simplification98.4%
(FPCore (a b) :precision binary64 (if (<= a 1.35e+154) (- (* a a) (* b b)) (* a a)))
double code(double a, double b) {
double tmp;
if (a <= 1.35e+154) {
tmp = (a * a) - (b * b);
} else {
tmp = a * a;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (a <= 1.35d+154) then
tmp = (a * a) - (b * b)
else
tmp = a * a
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if (a <= 1.35e+154) {
tmp = (a * a) - (b * b);
} else {
tmp = a * a;
}
return tmp;
}
def code(a, b): tmp = 0 if a <= 1.35e+154: tmp = (a * a) - (b * b) else: tmp = a * a return tmp
function code(a, b) tmp = 0.0 if (a <= 1.35e+154) tmp = Float64(Float64(a * a) - Float64(b * b)); else tmp = Float64(a * a); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if (a <= 1.35e+154) tmp = (a * a) - (b * b); else tmp = a * a; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[a, 1.35e+154], N[(N[(a * a), $MachinePrecision] - N[(b * b), $MachinePrecision]), $MachinePrecision], N[(a * a), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;a \leq 1.35 \cdot 10^{+154}:\\
\;\;\;\;a \cdot a - b \cdot b\\
\mathbf{else}:\\
\;\;\;\;a \cdot a\\
\end{array}
\end{array}
if a < 1.35000000000000003e154Initial program 96.0%
if 1.35000000000000003e154 < a Initial program 74.2%
Taylor expanded in a around inf 96.8%
unpow296.8%
Simplified96.8%
Final simplification96.1%
(FPCore (a b) :precision binary64 (if (<= b 2.2e-40) (* a a) (* b (- b))))
double code(double a, double b) {
double tmp;
if (b <= 2.2e-40) {
tmp = a * a;
} else {
tmp = b * -b;
}
return tmp;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
real(8) :: tmp
if (b <= 2.2d-40) then
tmp = a * a
else
tmp = b * -b
end if
code = tmp
end function
public static double code(double a, double b) {
double tmp;
if (b <= 2.2e-40) {
tmp = a * a;
} else {
tmp = b * -b;
}
return tmp;
}
def code(a, b): tmp = 0 if b <= 2.2e-40: tmp = a * a else: tmp = b * -b return tmp
function code(a, b) tmp = 0.0 if (b <= 2.2e-40) tmp = Float64(a * a); else tmp = Float64(b * Float64(-b)); end return tmp end
function tmp_2 = code(a, b) tmp = 0.0; if (b <= 2.2e-40) tmp = a * a; else tmp = b * -b; end tmp_2 = tmp; end
code[a_, b_] := If[LessEqual[b, 2.2e-40], N[(a * a), $MachinePrecision], N[(b * (-b)), $MachinePrecision]]
\begin{array}{l}
\\
\begin{array}{l}
\mathbf{if}\;b \leq 2.2 \cdot 10^{-40}:\\
\;\;\;\;a \cdot a\\
\mathbf{else}:\\
\;\;\;\;b \cdot \left(-b\right)\\
\end{array}
\end{array}
if b < 2.20000000000000009e-40Initial program 94.1%
Taylor expanded in a around inf 65.2%
unpow265.2%
Simplified65.2%
if 2.20000000000000009e-40 < b Initial program 91.2%
Taylor expanded in a around 0 79.5%
unpow279.5%
mul-1-neg79.5%
distribute-rgt-neg-in79.5%
Simplified79.5%
Final simplification69.0%
(FPCore (a b) :precision binary64 (* a a))
double code(double a, double b) {
return a * a;
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = a * a
end function
public static double code(double a, double b) {
return a * a;
}
def code(a, b): return a * a
function code(a, b) return Float64(a * a) end
function tmp = code(a, b) tmp = a * a; end
code[a_, b_] := N[(a * a), $MachinePrecision]
\begin{array}{l}
\\
a \cdot a
\end{array}
Initial program 93.3%
Taylor expanded in a around inf 53.6%
unpow253.6%
Simplified53.6%
Final simplification53.6%
(FPCore (a b) :precision binary64 (* (+ a b) (- a b)))
double code(double a, double b) {
return (a + b) * (a - b);
}
real(8) function code(a, b)
real(8), intent (in) :: a
real(8), intent (in) :: b
code = (a + b) * (a - b)
end function
public static double code(double a, double b) {
return (a + b) * (a - b);
}
def code(a, b): return (a + b) * (a - b)
function code(a, b) return Float64(Float64(a + b) * Float64(a - b)) end
function tmp = code(a, b) tmp = (a + b) * (a - b); end
code[a_, b_] := N[(N[(a + b), $MachinePrecision] * N[(a - b), $MachinePrecision]), $MachinePrecision]
\begin{array}{l}
\\
\left(a + b\right) \cdot \left(a - b\right)
\end{array}
herbie shell --seed 2023272
(FPCore (a b)
:name "Difference of squares"
:precision binary64
:herbie-target
(* (+ a b) (- a b))
(- (* a a) (* b b)))