\[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]
Test:
Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1
Bits:
128 bits
Bits error versus x
Bits error versus y
Bits error versus z
Bits error versus t
Time: 2.3 s
Input Error: 14.4
Output Error: 6.0
Log: ⚲
Profile: 🕒
\(\left(x \cdot y\right) \cdot \frac{1}{z}\)
  1. Started with
    \[x \cdot \frac{\frac{y}{z} \cdot t}{t}\]
    14.4
  2. Applied simplify to get
    \[\color{red}{x \cdot \frac{\frac{y}{z} \cdot t}{t}} \leadsto \color{blue}{x \cdot \frac{y}{z}}\]
    6.1
  3. Using strategy rm
    6.1
  4. Applied div-inv to get
    \[x \cdot \color{red}{\frac{y}{z}} \leadsto x \cdot \color{blue}{\left(y \cdot \frac{1}{z}\right)}\]
    6.2
  5. Applied associate-*r* to get
    \[\color{red}{x \cdot \left(y \cdot \frac{1}{z}\right)} \leadsto \color{blue}{\left(x \cdot y\right) \cdot \frac{1}{z}}\]
    6.0

Original test:


(lambda ((x default) (y default) (z default) (t default))
  #:name "Graphics.Rendering.Chart.Backend.Diagrams:calcFontMetrics from Chart-diagrams-1.5.1"
  (* x (/ (* (/ y z) t) t)))