\[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: 18.7 s
Input Error: 9.4
Output Error: 9.4
Log: ⚲
Profile: 🕒
\(x + \frac{y - z}{1.0 + \left(t - z\right)} \cdot \left(a - x\right)\)
  1. Started with
    \[x + \frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(a - x\right)\]
    9.4
  2. Using strategy rm
    9.4
  3. Applied *-un-lft-identity 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(1 \cdot \left(a - x\right)\right)}\]
    9.4
  4. Applied associate-*r* to get
    \[x + \color{red}{\frac{y - z}{\left(t + 1.0\right) - z} \cdot \left(1 \cdot \left(a - x\right)\right)} \leadsto x + \color{blue}{\left(\frac{y - z}{\left(t + 1.0\right) - z} \cdot 1\right) \cdot \left(a - x\right)}\]
    9.4
  5. Applied simplify to get
    \[x + \color{red}{\left(\frac{y - z}{\left(t + 1.0\right) - z} \cdot 1\right)} \cdot \left(a - x\right) \leadsto x + \color{blue}{\frac{y - z}{1.0 + \left(t - z\right)}} \cdot \left(a - x\right)\]
    9.4

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