coding-exercises/1/36.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

#lang racket
(require "../../shared/chapter1.rkt")
(require sicp)

(golden-ratio)

(define (log1000)
  (fixed-point
    (lambda (x)
      (println x)
      (/ (log 1000) (log x)))
    2.0))

(define (log1000-average-damped)
  (fixed-point
    (average-damp
      (lambda (x)
        (println x)
        (/ (log 1000) (log x))) 1)
    2.0))

(log1000)
(println " *** second time")
(log1000-average-damped)