Anonymous user
Generator/Exponential: Difference between revisions
→{{header|Racket}}
Line 1,415:
=={{header|Racket}}==
<lang racket>
#lang racket
(require racket/generator)
;; this is a function that returns a powers generator,
(define (powers
(for ([n (in-naturals)]) (yield (expt n m)))))
(define squares (powers 2))
(define cubes (powers 3))
;; same here
(define (
(generator ()
▲ (in-generator
(let loop ([n1 (g1)] [n2 (g2)])
(cond [(< n1 n2) (yield n1) (loop (g1) n2)]
Line 1,439 ⟶ 1,437:
[else (loop (g1) (g2))]))))
(
▲ [_ 10])
x)
</lang>
|