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