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

Exercise 1.41

Browse source
This commit is contained in:
Correl Roush 2014-06-02 11:41:46 -04:00
parent ef7ca0372e
commit 013bbded12
1 changed files with 15 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
1-3.org
View file

@ -578,6 +578,20 @@ layout: org
(((double (double double)) inc) 5) (((double (double double)) inc) 5)
#+end_src #+end_src
----------------------------------------------------------------------
#+begin_src scheme :tangle yes
;; -------------------------------------------------------------------
;; Exercise 1.41
;; -------------------------------------------------------------------
(define (double f)
(lambda (x) (f (f x))))
(((double (double double)) inc) 5)
;Value: 21
#+end_src
** Exercise 1.42 ** Exercise 1.42
Let f and g be two one-argument functions. The "composition" f Let f and g be two one-argument functions. The "composition" f
after g is defined to be the function x |-> f(g(x)). Define a after g is defined to be the function x |-> f(g(x)). Define a