0. #lang racket
1.  
2. Consider make-point, a coordinate pair object that has the following capabilities:
3. ;; create a point object and bind it to symbol 'mypoint
4. (define mypoint (make-point 10 20))
5. ;; point object accepts message 'x and returns the x value
6. (mypoint 'x) → 10
7. ;; point object accepts message 'y and returns the y value
8. (mypoint 'y) → 20
9. ;; point object accepts message 'shift and returns procedure
10. ;; which offsets x and y values by corresponding amounts
11. ((mypoint 'shift) 10 10)
12. ;; x coordinate is now 20, and y coordinate is now 30
13. (mypoint 'x)  → 20
14. (mypoint 'y) → 30
15. Given this spec, write a definition for make-point.
16.  
17.  
18. ;I think my third cond is wrong because it doesn't do anything to num1 or num2
19. ;it just returns a procedure but doesn't actually make any changes
20. ;(define (make-point num1 num2)
21.  ; (lambda (symbol)
22.   ;(cond
23.    ; [(eq? symbol 'x) num1]
24.     ;[(eq? symbol 'y) num2]
25.     ;[(eq? symbol 'shift) (lambda (incx incy)
26.      ;                      (make-point (+ incx num1) (+ incy num2)))])))
27.  
28.  
29. (define (make-point num1 num2)
30.   (lambda (symbol)
31.   (cond
32.     [(eq? symbol 'x) num1]
33.     [(eq? symbol 'y) num2]
34.     [(eq? symbol 'shift) (lambda (incx incy)
35.                            (set! num1 (+ incx num1))
36.                            (set! num2 (+ incy num2)))])))

=>