| # | Line 2 | Line 2 | frac(x,e) : x - floor(x+e); | |
|---|---|---|
| 2 | sq(x) : x * x; | |
| 3 | ||
| 4 | denom(x,e) : if( e-frac(x,e), 1, if( e-frac(1/x,e), floor(1/x+e), | |
| 5 | < | denom(frac(1/frac(1/x,e),e),e/sq(x)/sq(frac(1/x,e))) + |
| 5 | > | denom(frac(1/frac(1/x,e),e),e/sq(x*frac(1/x,e))) + |
| 6 | floor(1/x+e)*denom(frac(1/x,e),e/sq(x)) ) ); | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |