Anonymous user
Continued fraction/Arithmetic/Construct from rational number: Difference between revisions
Continued fraction/Arithmetic/Construct from rational number (view source)
Revision as of 18:50, 8 June 2013
, 11 years ago→{{header|Racket}}: Some improvements
m (→{{header|Racket}}: Some improvements) |
|||
Line 479:
=={{header|Racket}}==
<lang racket>
#lang racket
(define ((r2cf n d))
(
(let-values ([(q r) (quotient/remainder n d)])
(
(set! d r)▼
q))))▼
(define (r->cf n d)
(for/list ([i (in-producer (r2cf n d)
(define (real->cf x places)
(
(define
(map r->cf ▼
(real->cf (sqrt 2) 10)
(real->cf pi 10)
</lang>
{{out}}
|