\[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
Test:
Hakyll.Web.Tags:renderTagCloud from hakyll-4.7.2.3
Bits:
128 bits
Bits error versus x
Bits error versus y
Bits error versus z
Bits error versus t
Bits error versus a
Time: 14.2 s
Input Error: 3.8
Output Error: 2.1
Log: ⚲
Profile: 🕒
\(\begin{cases} \left(x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot a\right) + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(-x\right) & \text{when } x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right) \le -7.7258993f-35 \\ a - \frac{1.0}{z} \cdot \left(x - a\right) & \text{when } x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right) \le 5.6793586f-37 \\ \left(x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot a\right) + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(-x\right) & \text{otherwise} \end{cases}\)

    if (+ x (* (/ (- y z) (- (+ t 1.0) z)) (- a x))) < -7.7258993f-35 or 5.6793586f-37 < (+ x (* (/ (- y z) (- (+ t 1.0) z)) (- a x)))

    1. Started with
      \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
      1.0
    2. Using strategy rm
      1.0
    3. Applied sub-neg to get
      \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \color{red}{\left(a - x\right)} \leadsto x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \color{blue}{\left(a + \left(-x\right)\right)}\]
      1.0
    4. Applied distribute-lft-in to get
      \[x + \color{red}{\frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a + \left(-x\right)\right)} \leadsto x + \color{blue}{\left(\frac{y - z}{\left(t + 1.0\right) - z} \cdot a + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(-x\right)\right)}\]
      1.0
    5. Applied associate-+r+ to get
      \[\color{red}{x + \left(\frac{y - z}{\left(t + 1.0\right) - z} \cdot a + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(-x\right)\right)} \leadsto \color{blue}{\left(x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot a\right) + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(-x\right)}\]
      1.0

    if -7.7258993f-35 < (+ x (* (/ (- y z) (- (+ t 1.0) z)) (- a x))) < 5.6793586f-37

    1. Started with
      \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
      29.1
    2. Using strategy rm
      29.1
    3. Applied pow1 to get
      \[x + \color{red}{\frac{y - z}{\left(t + 1.0\right) - z}} \cdot \left(a - x\right) \leadsto x + \color{blue}{{\left(\frac{y - z}{\left(t + 1.0\right) - z}\right)}^{1}} \cdot \left(a - x\right)\]
      29.1
    4. Applied taylor to get
      \[x + {\left(\frac{y - z}{\left(t + 1.0\right) - z}\right)}^{1} \cdot \left(a - x\right) \leadsto \left(a + 1.0 \cdot \frac{a}{z}\right) - 1.0 \cdot \frac{x}{z}\]
      12.2
    5. Taylor expanded around inf to get
      \[\color{red}{\left(a + 1.0 \cdot \frac{a}{z}\right) - 1.0 \cdot \frac{x}{z}} \leadsto \color{blue}{\left(a + 1.0 \cdot \frac{a}{z}\right) - 1.0 \cdot \frac{x}{z}}\]
      12.2
    6. Applied simplify to get
      \[\color{red}{\left(a + 1.0 \cdot \frac{a}{z}\right) - 1.0 \cdot \frac{x}{z}} \leadsto \color{blue}{a - \frac{1.0}{z} \cdot \left(x - a\right)}\]
      12.2
  1. Removed slow pow expressions

Original test:


(lambda ((x default) (y default) (z default) (t default) (a default))
  #:name "Hakyll.Web.Tags:renderTagCloud from hakyll-4.7.2.3"
  (+ x (* (/ (- y z) (- (+ t 1.0) z)) (- a x))))