
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ 1.0 t_0))) (/ t_0 (* (* s t_1) t_1))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = 1.0f + t_0;
return t_0 / ((s * t_1) * t_1);
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: t_1
t_0 = exp((-abs(x) / s))
t_1 = 1.0e0 + t_0
code = t_0 / ((s * t_1) * t_1)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(Float32(1.0) + t_0) return Float32(t_0 / Float32(Float32(s * t_1) * t_1)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); t_1 = single(1.0) + t_0; tmp = t_0 / ((s * t_1) * t_1); end
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := 1 + t\_0\\
\frac{t\_0}{\left(s \cdot t\_1\right) \cdot t\_1}
\end{array}
Herbie found 11 alternatives:
| Alternative | Accuracy | Speedup |
|---|
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (let* ((t_0 (exp (/ (- (fabs x)) s))) (t_1 (+ 1.0 t_0))) (/ t_0 (* (* s t_1) t_1))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
float t_1 = 1.0f + t_0;
return t_0 / ((s * t_1) * t_1);
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
real(4) :: t_1
t_0 = exp((-abs(x) / s))
t_1 = 1.0e0 + t_0
code = t_0 / ((s * t_1) * t_1)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) t_1 = Float32(Float32(1.0) + t_0) return Float32(t_0 / Float32(Float32(s * t_1) * t_1)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); t_1 = single(1.0) + t_0; tmp = t_0 / ((s * t_1) * t_1); end
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
t_1 := 1 + t\_0\\
\frac{t\_0}{\left(s \cdot t\_1\right) \cdot t\_1}
\end{array}
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (let* ((t_0 (exp (/ (- (fabs x)) s)))) (/ (* (pow (- -1.0 t_0) -2.0) t_0) s)))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
return (powf((-1.0f - t_0), -2.0f) * t_0) / s;
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = exp((-abs(x) / s))
code = ((((-1.0e0) - t_0) ** (-2.0e0)) * t_0) / s
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) return Float32(Float32((Float32(Float32(-1.0) - t_0) ^ Float32(-2.0)) * t_0) / s) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); tmp = (((single(-1.0) - t_0) ^ single(-2.0)) * t_0) / s; end
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
\frac{{\left(-1 - t\_0\right)}^{-2} \cdot t\_0}{s}
\end{array}
Initial program 99.5%
Applied rewrites99.5%
Applied rewrites99.5%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -1.0 (* (* (- -1.0 (exp (/ (- (fabs x)) s))) (+ s s)) (exp (/ (fabs x) s)))))
float code(float x, float s) {
return -1.0f / (((-1.0f - expf((-fabsf(x) / s))) * (s + s)) * expf((fabsf(x) / s)));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-1.0e0) / ((((-1.0e0) - exp((-abs(x) / s))) * (s + s)) * exp((abs(x) / s)))
end function
function code(x, s) return Float32(Float32(-1.0) / Float32(Float32(Float32(Float32(-1.0) - exp(Float32(Float32(-abs(x)) / s))) * Float32(s + s)) * exp(Float32(abs(x) / s)))) end
function tmp = code(x, s) tmp = single(-1.0) / (((single(-1.0) - exp((-abs(x) / s))) * (s + s)) * exp((abs(x) / s))); end
\frac{-1}{\left(\left(-1 - e^{\frac{-\left|x\right|}{s}}\right) \cdot \left(s + s\right)\right) \cdot e^{\frac{\left|x\right|}{s}}}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites95.0%
Applied rewrites95.0%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (let* ((t_0 (exp (/ (- (fabs x)) s)))) (/ (/ t_0 (+ 1.0 t_0)) (+ s s))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
return (t_0 / (1.0f + t_0)) / (s + s);
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = exp((-abs(x) / s))
code = (t_0 / (1.0e0 + t_0)) / (s + s)
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) return Float32(Float32(t_0 / Float32(Float32(1.0) + t_0)) / Float32(s + s)) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); tmp = (t_0 / (single(1.0) + t_0)) / (s + s); end
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
\frac{\frac{t\_0}{1 + t\_0}}{s + s}
\end{array}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites95.0%
Applied rewrites95.0%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (let* ((t_0 (exp (/ (- (fabs x)) s)))) (/ t_0 (* (+ s s) (+ 1.0 t_0)))))
float code(float x, float s) {
float t_0 = expf((-fabsf(x) / s));
return t_0 / ((s + s) * (1.0f + t_0));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
real(4) :: t_0
t_0 = exp((-abs(x) / s))
code = t_0 / ((s + s) * (1.0e0 + t_0))
end function
function code(x, s) t_0 = exp(Float32(Float32(-abs(x)) / s)) return Float32(t_0 / Float32(Float32(s + s) * Float32(Float32(1.0) + t_0))) end
function tmp = code(x, s) t_0 = exp((-abs(x) / s)); tmp = t_0 / ((s + s) * (single(1.0) + t_0)); end
\begin{array}{l}
t_0 := e^{\frac{-\left|x\right|}{s}}\\
\frac{t\_0}{\left(s + s\right) \cdot \left(1 + t\_0\right)}
\end{array}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites95.0%
Applied rewrites95.0%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -1.0 (* (* -4.0 s) (exp (/ (fabs x) s)))))
float code(float x, float s) {
return -1.0f / ((-4.0f * s) * expf((fabsf(x) / s)));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-1.0e0) / (((-4.0e0) * s) * exp((abs(x) / s)))
end function
function code(x, s) return Float32(Float32(-1.0) / Float32(Float32(Float32(-4.0) * s) * exp(Float32(abs(x) / s)))) end
function tmp = code(x, s) tmp = single(-1.0) / ((single(-4.0) * s) * exp((abs(x) / s))); end
\frac{-1}{\left(-4 \cdot s\right) \cdot e^{\frac{\left|x\right|}{s}}}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites95.0%
Applied rewrites95.0%
Taylor expanded in s around inf
Applied rewrites94.6%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ (exp (/ (- (fabs x)) s)) (* 4.0 s)))
float code(float x, float s) {
return expf((-fabsf(x) / s)) / (4.0f * s);
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = exp((-abs(x) / s)) / (4.0e0 * s)
end function
function code(x, s) return Float32(exp(Float32(Float32(-abs(x)) / s)) / Float32(Float32(4.0) * s)) end
function tmp = code(x, s) tmp = exp((-abs(x) / s)) / (single(4.0) * s); end
\frac{e^{\frac{-\left|x\right|}{s}}}{4 \cdot s}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites94.6%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -1.0 (* (- (* 4.0 s)) (+ 1.0 (/ (sqrt (* x x)) s)))))
float code(float x, float s) {
return -1.0f / (-(4.0f * s) * (1.0f + (sqrtf((x * x)) / s)));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-1.0e0) / (-(4.0e0 * s) * (1.0e0 + (sqrt((x * x)) / s)))
end function
function code(x, s) return Float32(Float32(-1.0) / Float32(Float32(-Float32(Float32(4.0) * s)) * Float32(Float32(1.0) + Float32(sqrt(Float32(x * x)) / s)))) end
function tmp = code(x, s) tmp = single(-1.0) / (-(single(4.0) * s) * (single(1.0) + (sqrt((x * x)) / s))); end
\frac{-1}{\left(-4 \cdot s\right) \cdot \left(1 + \frac{\sqrt{x \cdot x}}{s}\right)}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites94.6%
Applied rewrites94.6%
Taylor expanded in s around inf
Applied rewrites49.7%
Applied rewrites56.1%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -1.0 (* (- (* 4.0 s)) (* (+ s (fabs x)) (/ 1.0 s)))))
float code(float x, float s) {
return -1.0f / (-(4.0f * s) * ((s + fabsf(x)) * (1.0f / s)));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-1.0e0) / (-(4.0e0 * s) * ((s + abs(x)) * (1.0e0 / s)))
end function
function code(x, s) return Float32(Float32(-1.0) / Float32(Float32(-Float32(Float32(4.0) * s)) * Float32(Float32(s + abs(x)) * Float32(Float32(1.0) / s)))) end
function tmp = code(x, s) tmp = single(-1.0) / (-(single(4.0) * s) * ((s + abs(x)) * (single(1.0) / s))); end
\frac{-1}{\left(-4 \cdot s\right) \cdot \left(\left(s + \left|x\right|\right) \cdot \frac{1}{s}\right)}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites94.6%
Applied rewrites94.6%
Taylor expanded in s around inf
Applied rewrites49.7%
Applied rewrites49.8%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -1.0 (* (- (* 4.0 s)) (+ 1.0 (/ (fabs x) s)))))
float code(float x, float s) {
return -1.0f / (-(4.0f * s) * (1.0f + (fabsf(x) / s)));
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-1.0e0) / (-(4.0e0 * s) * (1.0e0 + (abs(x) / s)))
end function
function code(x, s) return Float32(Float32(-1.0) / Float32(Float32(-Float32(Float32(4.0) * s)) * Float32(Float32(1.0) + Float32(abs(x) / s)))) end
function tmp = code(x, s) tmp = single(-1.0) / (-(single(4.0) * s) * (single(1.0) + (abs(x) / s))); end
\frac{-1}{\left(-4 \cdot s\right) \cdot \left(1 + \frac{\left|x\right|}{s}\right)}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites94.6%
Applied rewrites94.6%
Taylor expanded in s around inf
Applied rewrites49.7%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ -0.125 (* -0.5 s)))
float code(float x, float s) {
return -0.125f / (-0.5f * s);
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = (-0.125e0) / ((-0.5e0) * s)
end function
function code(x, s) return Float32(Float32(-0.125) / Float32(Float32(-0.5) * s)) end
function tmp = code(x, s) tmp = single(-0.125) / (single(-0.5) * s); end
\frac{-0.125}{-0.5 \cdot s}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites27.3%
Applied rewrites27.3%
Applied rewrites27.3%
(FPCore (x s) :precision binary32 :pre (and (<= 0.0 s) (<= s 1.0651631)) (/ 0.25 s))
float code(float x, float s) {
return 0.25f / s;
}
real(4) function code(x, s)
use fmin_fmax_functions
real(4), intent (in) :: x
real(4), intent (in) :: s
code = 0.25e0 / s
end function
function code(x, s) return Float32(Float32(0.25) / s) end
function tmp = code(x, s) tmp = single(0.25) / s; end
\frac{0.25}{s}
Initial program 99.5%
Taylor expanded in s around inf
Applied rewrites27.3%
herbie shell --seed 2026070
(FPCore (x s)
:name "Logistic distribution"
:precision binary32
:pre (and (<= 0.0 s) (<= s 1.0651631))
(/ (exp (/ (- (fabs x)) s)) (* (* s (+ 1.0 (exp (/ (- (fabs x)) s)))) (+ 1.0 (exp (/ (- (fabs x)) s))))))