[12.23] [sicp 3.61] - Githubissues

ruandao / blog

0 stars 0 forks source link

[12.23] [sicp 3.61] #111

Closed ruandao closed 8 years ago

ruandao commented 8 years ago


(load "3.60.scm")

(define (invert-unit-series s)
  (define s2 (cons-stream 1 (negative-series
                 (mul-series (stream-cdr s)
                     s2))))
  s2)

#|

((lambda()
   (define m (mul-series exp-series
             (invert-unit-series exp-series)))
   (sum-list (cdr (stream-head 'x m 50)))
   ))

|#

ruandao commented 8 years ago


(load "3.60.scm")

(define (invert-unit-series s)
  (define s2 (cons-stream 1 (mul-series
                 (negative-series (stream-cdr s))
                 s2)))

  s2)

#|

((lambda()
   (define m (mul-series exp-series
             (invert-unit-series exp-series)))
   (sum-list (cdr (stream-head 'x m 50)))
   ))

|#