Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 2a9dba2f9e
Fetching contributors…

Cannot retrieve contributors at this time

31 lines (22 sloc) 0.727 kb
;; Example 3.59
#lang racket
(require racket/stream)
;; accumulate stream n times
(define (fold-stream stream n)
(if (<= n 0)
(+ (stream-first stream)
(fold-stream (stream-rest stream) (- n 1)))))
(define (integrate-series stream)
(define (iter str counter)
(stream-cons (* (/ 1. counter) (stream-first str))
(iter (stream-rest str) (+ counter 1))))
(iter stream 1))
(define exp-series
(stream-cons 1 (integrate-series exp-series)))
(fold-stream exp-series 100)
(define cosine-series
(stream-cons 1 (stream-map (lambda (x) (- x))
(integrate-series sine-series))))
(define sine-series
(stream-cons 0 (integrate-series cosine-series)))
Jump to Line
Something went wrong with that request. Please try again.