1. 01|x <- 9 ; y <- 4
02|    k <- function(x) {
03|      x +y
04|    }
05|    cat("k(2)=",k(2),"\n",sep="")
06|
07|#

113
28
30
46
55

2. 01|x <- 5 ; y <- 1
02|    k <- function(x) {
03|      x *1
04|    }
05|    cat("k(0)=",k(0),"\n",sep="")
06|
07|#

1-3
20
31
47
5-1

3. 01|x <- 0 ; y <- 0
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 3 ; y <- 3
05|        x -1
06|      }
07|      k(x) *2  
08|    }
09|    cat("k(7)=",k(7),"\n",sep="")
10|
11|#

13
24
35
48
52

4. 01|x <- 6 ; y <- 8
02|    k <- function(x) {
03|      x *y
04|    }
05|    cat("k(6)=",k(6),"\n",sep="")
06|
07|#

148
251
349
444
550

5. 01|x <- 3 ; y <- 8
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 7 ; y <- 7
05|        k <- function(k) { k -2 }
06|        k(x) *1
07|      }
08|      k(x) +1  
09|    }
10|    cat("k(9)=",k(9),"\n",sep="")
11|
12|#

10
26
33
413
59

6. 01|x <- 0 ; y <- 3
02|    k <- function(x) {
03|      x *x
04|    }
05|    cat("k(1)=",k(1),"\n",sep="")
06|
07|#

13
22
34
4-1
51

7. 01|x <- 8 ; y <- 4
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 6 ; y <- 6
05|        x +3
06|      }
07|      k(x) -y  
08|    }
09|    cat("k(0)=",k(0),"\n",sep="")
10|
11|#

14
26
35
43
57

8. 01|x <- 6 ; y <- 1
02|    k <- function(x) {
03|      x +x
04|    }
05|    cat("k(4)=",k(4),"\n",sep="")
06|
07|#

112
27
38
46
510

9. 01|x <- 1 ; y <- 3
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 5 ; y <- 5
05|        k <- function(k) { k -1 }
06|        k(x) +2
07|      }
08|      k(x) +2  
09|    }
10|    cat("k(3)=",k(3),"\n",sep="")
11|
12|#

19
210
38
47
513

10. 01|x <- 3 ; y <- 3
02|    k <- function(x) {
03|      x *2
04|    }
05|    cat("k(9)=",k(9),"\n",sep="")
06|
07|#

115
217
316
419
518

11. 01|x <- 4 ; y <- 7
02|    k <- function(x) {
03|      x +3
04|    }
05|    cat("k(4)=",k(4),"\n",sep="")
06|
07|#

12
24
37
46
510

12. 01|x <- 6 ; y <- 4
02|    k <- function(x) {
03|      x *x
04|    }
05|    cat("k(0)=",k(0),"\n",sep="")
06|
07|#

13
20
31
42
5-6

13. 01|x <- 2 ; y <- 9
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 2 ; y <- 2
05|        k <- function(k) { k -2 }
06|        k(x) *3
07|      }
08|      k(x) -y  
09|    }
10|    cat("k(4)=",k(4),"\n",sep="")
11|
12|#

1-6
2-3
3-9
45

14. 01|x <- 0 ; y <- 4
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 3 ; y <- 3
05|        k <- function(k) { k +3 }
06|        k(x) *3
07|      }
08|      k(x) *3  
09|    }
10|    cat("k(1)=",k(1),"\n",sep="")
11|
12|#

157
254
353
455
551

15. 01|x <- 8 ; y <- 9
02|    k <- function(x) {
03|      x +2
04|    }
05|    cat("k(7)=",k(7),"\n",sep="")
06|
07|#

14
29
310
414
57

16. 01|x <- 5 ; y <- 0
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 7 ; y <- 7
05|        x -2
06|      }
07|      k(x) -x  
08|    }
09|    cat("k(9)=",k(9),"\n",sep="")
10|
11|#

13
2-7
30
4-4

17. 01|x <- 2 ; y <- 7
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 9 ; y <- 9
05|        k <- function(k) { k *1 }
06|        k(x) +1
07|      }
08|      k(x) +y  
09|    }
10|    cat("k(4)=",k(4),"\n",sep="")
11|
12|#

116
220
315
417
512

18. 01|x <- 9 ; y <- 3
02|    k <- function(x) {
03|       k <- function(x) {
04|        x <- 6 ; y <- 6
05|        (function(k) -k )(y)
06|      }
07|      k(x) -2  
08|    }
09|    cat("k(3)=",k(3),"\n",sep="")
10|
11|#

1-6
20
3-2
4-8
5-10

19. 01|x <- 9 ; y <- 4
02|    k <- function(x) {
03|      x +x
04|    }
05|    cat("k(0)=",k(0),"\n",sep="")
06|
07|#

12
2-2
33
4-4
50

20. 01|x <- 1 ; y <- 2
02|    k <- function(x) {
03|      x -y
04|    }
05|    cat("k(1)=",k(1),"\n",sep="")
06|
07|#

13
2-6
3-1
4-8
5-5