Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Continued fraction/Arithmetic/Construct from rational number (view source)
Revision as of 21:12, 28 February 2023
, 1 year ago→Using call-with-current-continuation to implement coroutines
Line 4,571:
(if (zero? d)
(call-with-current-continuation
(lambda (
(call-with-values (lambda () (values
consumer)))
(let-values (((q r) (floor/ n d)))
(loop d r (call-with-current-continuation
(lambda (
(call-with-values (lambda ()
(values
consumer)))))))))
(define (display-cf
(display "[")
(let loop ((
(
(separator ""))
(if term
Line 4,590:
(display separator)
(display term)
(let-values (((
(call-with-current-continuation producer)))
(loop
(if (string=? separator "") ";" ","))))
(begin
| |||