3.5.2 無限ストリーム ;; 3.5 ストリーム ;; 3.5.2 無限ストリーム (load "./stream.scm") (define (integers-starting-from n) (cons-stream n (integers-starting-from (+ n 1)))) (define integers (integers-starting-from 1)) ;; integers を評価するとトンデモないことに。 (define (divisible? x y) (= (remainder x y) 0)) (define no-sevens (stream-filter (lambda (x) (not (divisible? x 7))) integers)) (define (fibgen a b) (cons-stream a (fibgen b (