Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Content added Content deleted
Line 4,571: | Line 4,571: | ||
(if (zero? d) |
(if (zero? d) |
||
(call-with-current-continuation |
(call-with-current-continuation |
||
(lambda (kont) |
(lambda (kont) (consumer #f kont))) |
||
(call-with-values (lambda () (values #f kont)) |
|||
consumer))) |
|||
(let-values (((q r) (floor/ n d))) |
(let-values (((q r) (floor/ n d))) |
||
(loop d r (call-with-current-continuation |
(loop d r (call-with-current-continuation |
||
(lambda (kont) |
(lambda (kont) (consumer q kont))))))))) |
||
(call-with-values (lambda () |
|||
(values q kont)) |
|||
consumer))))))))) |
|||
(define (display-cf term producer) |
(define (display-cf term producer) |