github/sicp
1
0
Fork 0
mirror of https://github.com/correl/sicp.git synced 2024-11-23 11:09:57 +00:00
Code Issues Projects Releases Packages Wiki Activity

Exercise 1.44

Browse source
This commit is contained in:
Correl Roush 2014-06-02 12:07:43 -04:00
parent f8324dd7d1
commit f5cfef579b
1 changed files with 17 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
1-3.org
View file

@ -660,6 +660,22 @@ layout: org
any given function using `smooth' and `repeated' from *Note any given function using `smooth' and `repeated' from *Note
Exercise 1-43::. Exercise 1-43::.
----------------------------------------------------------------------
#+begin_src scheme :tangle yes
;; -------------------------------------------------------------------
;; Exercise 1.44
;; -------------------------------------------------------------------
(define (smooth f)
(lambda (x) (/ (+ (f (- x dx))
(f x)
(f (+ x dx)))
3)))
(define (smooth-n f times)
((repeated smooth times) f))
#+end_src
** Exercise 1.45 ** Exercise 1.45
We saw in section *Note 1-3-3:: that attempting to compute square We saw in section *Note 1-3-3:: that attempting to compute square
roots by naively finding a fixed point of y |-> x/y does not roots by naively finding a fixed point of y |-> x/y does not