Continued fraction/Arithmetic/Construct from rational number: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,422: / Line 3,422: @@
   (if (Denominator = zero)
    then (CF = lazy_list(delay((func) = nil)))
-   else (CF = lazy_list(delay((func) = cons(Quotient, Tail))),
+   else (CF = lazy_list(delay(Cons)),
-         Tail = r2cf(Denominator, Remainder),
+         Cons = ((func) = cons(Quotient,
+                               r2cf(Denominator, Remainder))),
          %% What follows is division with truncation towards zero.
          divide_with_rem(Numerator, Denominator,