\[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: 13.5 s
Input Error: 11.5
Output Error: 4.5
Log:
Profile: 🕒
\(\begin{cases} (\left(\frac{y}{z}\right) * x + a)_* - \frac{y}{\frac{z}{a}} & \text{when } z \le -3.304681243542697 \cdot 10^{+156} \\ (\left(a - x\right) * \left(\frac{1}{\frac{\left(1.0 + t\right) - z}{y - z}}\right) + x)_* & \text{when } z \le 1.3381210941431743 \cdot 10^{+173} \\ (\left(\frac{y}{z}\right) * x + a)_* - \frac{y}{\frac{z}{a}} & \text{otherwise} \end{cases}\)

    if z < -3.304681243542697e+156 or 1.3381210941431743e+173 < z

    1. Started with
      \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
      29.7
    2. Applied simplify to get
      \[\color{red}{x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)} \leadsto \color{blue}{(\left(a - x\right) * \left(\frac{y - z}{\left(1.0 + t\right) - z}\right) + x)_*}\]
      29.7
    3. Using strategy rm
      29.7
    4. Applied div-inv to get
      \[(\left(a - x\right) * \color{red}{\left(\frac{y - z}{\left(1.0 + t\right) - z}\right)} + x)_* \leadsto (\left(a - x\right) * \color{blue}{\left(\left(y - z\right) \cdot \frac{1}{\left(1.0 + t\right) - z}\right)} + x)_*\]
      29.8
    5. Using strategy rm
      29.8
    6. Applied fma-udef to get
      \[\color{red}{(\left(a - x\right) * \left(\left(y - z\right) \cdot \frac{1}{\left(1.0 + t\right) - z}\right) + x)_*} \leadsto \color{blue}{\left(a - x\right) \cdot \left(\left(y - z\right) \cdot \frac{1}{\left(1.0 + t\right) - z}\right) + x}\]
      29.8
    7. Applied simplify to get
      \[\color{red}{\left(a - x\right) \cdot \left(\left(y - z\right) \cdot \frac{1}{\left(1.0 + t\right) - z}\right)} + x \leadsto \color{blue}{\frac{\left(a - x\right) \cdot \left(y - z\right)}{1.0 - \left(z - t\right)}} + x\]
      49.3
    8. Applied taylor to get
      \[\frac{\left(a - x\right) \cdot \left(y - z\right)}{1.0 - \left(z - t\right)} + x \leadsto \left(\frac{y \cdot x}{z} + a\right) - \frac{y \cdot a}{z}\]
      12.7
    9. Taylor expanded around inf to get
      \[\color{red}{\left(\frac{y \cdot x}{z} + a\right) - \frac{y \cdot a}{z}} \leadsto \color{blue}{\left(\frac{y \cdot x}{z} + a\right) - \frac{y \cdot a}{z}}\]
      12.7
    10. Applied simplify to get
      \[\left(\frac{y \cdot x}{z} + a\right) - \frac{y \cdot a}{z} \leadsto (\left(\frac{y}{z}\right) * x + a)_* - \frac{y}{\frac{z}{a}}\]
      1.8

    11. Applied final simplification

    if -3.304681243542697e+156 < z < 1.3381210941431743e+173

    1. Started with
      \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
      5.3
    2. Applied simplify to get
      \[\color{red}{x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)} \leadsto \color{blue}{(\left(a - x\right) * \left(\frac{y - z}{\left(1.0 + t\right) - z}\right) + x)_*}\]
      5.3
    3. Using strategy rm
      5.3
    4. Applied clear-num to get
      \[(\left(a - x\right) * \color{red}{\left(\frac{y - z}{\left(1.0 + t\right) - z}\right)} + x)_* \leadsto (\left(a - x\right) * \color{blue}{\left(\frac{1}{\frac{\left(1.0 + t\right) - z}{y - z}}\right)} + x)_*\]
      5.3

  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))))