The (aux stream) module

 Posted on February 5, 2026  (Last modified on February 11, 2026)  |   2 min  |   Massimo Nocentini

test/stream/nats: pass

(define (test/stream/nats _)
  (let1 (nats (take§ 20 (nats§ 0)))
        (⊦= '(0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19)
              (§->list nats))))

((eta 0.004) (memory #(6291456 1863376 1048576)) (stdout "") (stderr ""))

test/stream/fibs: pass

(define (test/stream/fibs _)
  (let1 (fibs (take§ 20 (fibs§ 0 1)))
        (⊦= '(0
                1
                1
                2
                3
                5
                8
                13
                21
                34
                55
                89
                144
                233
                377
                610
                987
                1597
                2584
                4181)
              (§->list fibs))))

((eta 0.003) (memory #(6291456 1878472 1048576)) (stdout "") (stderr ""))

test/stream/ones: pass

(define (test/stream/ones _)
  (let1 (ones (take§ 20 (const§ 1)))
        (⊦= '(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (§->list ones))))

((eta 0.001) (memory #(6291456 1882032 1048576)) (stdout "") (stderr ""))

test/stream/primes: pass

(define (test/stream/primes _)
  (let1 (primes (take§ 20 primes§))
        (⊦= '(2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71)
              (§->list primes))))

((eta 0.01) (memory #(6291456 2083056 1048576)) (stdout "") (stderr ""))

test/stream/ones+τ: pass

(define (test/stream/ones+τ _)
  (let1 (ones (take§ 20 (thunk§ 1)))
        (⊦= '(1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1) (§->list ones))))

((eta 0.001) (memory #(6291456 2086576 1048576)) (stdout "") (stderr ""))
Categories: scheme 

See also

CHICKEN Scheme Versions and implementation notes The SBRAL data structure Skew Binary Random-Access Lists Pattern matching Scheme macrology: a generalized pattern matcher The (aux hansei) module The (aux nondeterministic) module Learning tests for Scheme The (aux unittest) module Bootstrapping a unittest framework Scheme lang: Chez, 48 and Chicken Some docs, refs and containers, respectively. The Reasoned Schemer miniKanren, microKanren and some implementations Aggregation predicates for µkanren Groups, window functions, sets and enumerations miniKanren, live and untagged Quine generation via relational interpreters Pure, declarative, and constructive arithmetic relations A declarative pearl Final shift for call/cc Direct implementation of shift and reset Call with Current Continuation Patterns Cogen in six lines The Seasoned Schemer The Little Schemer Adding generic functions to Scheme Handling control