suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add docs example for in-generator, where arity > 1

Browse Source
This commit is contained in:
Stephen Chang 2013-08-29 16:38:12 -04:00
parent ac21f854a2
commit d5c2443c05
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pkgs/racket-pkgs/racket-doc/scribblings/reference/sequences.scrbl
View File

@ -1050,6 +1050,18 @@ values from the generator.
@racket[#:arity arity-k] clause; the @racket[arity-k] must be a @racket[#:arity arity-k] clause; the @racket[arity-k] must be a
literal, exact, non-negative integer. literal, exact, non-negative integer.
@examples[#:eval generator-eval
(let ([g (in-generator
(let loop ([n 3])
(unless (zero? n) (yield n (add1 n)) (loop (sub1 n)))))])
(let-values ([(not-empty? next) (sequence-generate g)])
(let loop () (when (not-empty?) (next) (loop))) 'done))
(let ([g (in-generator #:arity 2
(let loop ([n 3])
(unless (zero? n) (yield n (add1 n)) (loop (sub1 n)))))])
(let-values ([(not-empty? next) (sequence-generate g)])
(let loop () (when (not-empty?) (next) (loop))) 'done))]
To use an existing generator as a sequence, use @racket[in-producer] To use an existing generator as a sequence, use @racket[in-producer]
with a stop-value known for the generator: with a stop-value known for the generator: