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

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

edits