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

Content added Content deleted

Inline

@@ Line 479: / Line 479: @@
 =={{header|Racket}}==
-<lang racket>#lang racket
+<lang racket>
+#lang racket
-(define (r2cf n d)
+(define ((r2cf n d))
-  (lambda ()
+  (or (zero? d)
+      (let-values ([(q r) (quotient/remainder n d)])
-    (if (zero? d)
-        null
+        (set! n d)
-        (let-values ([(q r) (quotient/remainder n d)])
+        (set! d r)
-          (set! n d)
+        q)))
-          (set! d r)
-          q))))
 (define (r->cf n d)
-  (for/list ([i (in-producer (r2cf n d) null)])
+  (for/list ([i (in-producer (r2cf n d) #t)]) i))
-    i))
 (define (real->cf x places)
-  (let* ([d (expt 10 places)]
+  (define d (expt 10 places))
-         [n (exact-floor (* x d))])
+  (define n (exact-floor (* x d)))
-    (r->cf n d)))
+  (r->cf n d))
-(map r->cf
-     (list 1 3 23 13 22 -151)
-     (list 2 1  8 11  7   77))
+(map r->cf
+     '(1 3 23 13 22 -151)
+     '(2 1  8 11  7   77))
 (real->cf (sqrt 2) 10)
-(real->cf pi 10)</lang>
+(real->cf pi 10)
+</lang>
 {{out}}