1 ;; The first three lines of this file were inserted by DrScheme. They record metadata
2 ;; about the language level of this file in a form that our tools can easily process.
3 #reader(lib "htdp-intermediate-reader.ss" "lang")((modname 18.1.4) (read-case-sensitive #t) (teachpacks ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp"))) (htdp-settings #(#t constructor repeating-decimal #f #t none #f ((lib "draw.ss" "teachpack" "htdp") (lib "arrow.ss" "teachpack" "htdp") (lib "dir.ss" "teachpack" "htdp") (lib "hangman.ss" "teachpack" "htdp")))))
4 (local ( (define x 5))
5   x)
6 
7 1. (define (x-1 y) (* 3 y))
8        
9      (* (x-1 2) 5)
10      
11    (define (x-1 y) (* 3 y))
12        
13      (* (* 3 2) 5)
14      
15 (* 6 5)
16 
17 30
18 
19 
20 
21 
22 
23 2. 
24        (define (f-1 c) (+ (* 9/5 c) 32))
25            
26      
27      (- (f-1 0) (f-1 10))
28      
29 
30      (define (f-1 c) (+ (* 9/5 c) 32))
31            
32      
33      (- (+ (* 9/5 0) 32) (+ (* 9/5 10) 32))
34      (- (+ 0 32) (+ 90/5 32))
35      (- 32 50)
36      -18
37 
38 
39 3. (local (
40            
41            (define (odd?-1 n)
42 	       (cond
43 		 [(zero? n) false]
44 		 [else (even? (sub1 n))]))
45            
46            (define (even?-1 n)
47              (cond
48                [(zero? n) true]
49                [else (odd? (sub1 n))]))
50            
51            )
52      (even?-1 1)
53      
54      )
55 
56 
57     (define (odd?-1 n)
58       (cond
59         [(zero? n) false]
60         [else (even? (sub1 n))]))
61     
62     (define (even?-1 n)
63       (cond
64         [(zero? n) true]
65         [else (odd? (sub1 n))]))
66      
67     (even?-1 1)
68      
69     (cond
70       [false true]
71       [else (odd? 0)])
72 
73 
74     (cond
75       [false true]
76       [else (cond
77               [true false]
78               [else (even? (sub1 0))])])
79     
80     (cond
81       [false true]
82       [else false])
83     
84     false
85 
86     
87 4. (+ 
88     
89     
90     (local ((define (f x) (g (+ x 1) 22))
91 		(define (g x y) (+ x y)))
92 	  (f 10))
93 
94     
95     555)
96 
97 (+ 
98     
99     
100     (local ((define (f-1 x) (g (+ x 1) 22))
101 		(define (g x y) (+ x y)))
102 	  (f 10))
103 
104     
105     555)
106 
107 
108 5. (define (h n) 
109        (cond
110 	 [(= n 0) empty]
111 	 [else (local ((define r (* n n)))
112 		 (cons r (h (- n 1))))]))
113      (h 2)