Rosetta Code

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

Page Discussion

Continued fraction/Arithmetic/Construct from rational number (view source)

Revision as of 20:31, 7 June 2013

117 bytes removed ,  11 years ago
→‎{{header|Racket}}
Line 481:
<lang racket>#lang racket
 
((define (r2cf n d)
(require racket/generator)
(lambda ()
 
(defineif (r2cf nzero? d)
null
(generator ()
(let loop-values ([n(q r) (quotient/remainder n] [d d)])
(condset! [(=n d 0) null]
[else (let-valuesset! ([(qd r) (quotient/remainder n d)])
(yield q))))
(loop d r))]))))
 
(define (r->cf n d)
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/224581"