0. #lang racket
1. "Exercise 50. If you copy and paste the
2. above function definition into the definitions
3. area of DrRacket and click RUN, DrRacket
4. highlights two of the three cond lines.
5. This coloring tells you that your test cases do
6. not cover the full cond itional. Add enough
7. tests to make DrRacket happy."
8.  
9. ; TrafficLight -> TrafficLight
10. ; yields the next state given current state s
11. (check-expect (traffic-light-next "red") "green")
12. (check-expect (traffic-light-next "green") "yellow")
13. (check-expect (traffic-light-next "yellow") "red")
14. (define (traffic-light-next s)
15.   (cond
16.     [(string=? "red" s) "green"]
17.     [(string=? "green" s) "yellow"]
18.     [(string=? "yellow" s) "red"]))
19.  
20. "Exercise 51. Design a big-bang program
21.  that simulates a traffic light for a
22. given duration. The program renders the state of
23. a traffic light as a solid circle of
24. the appropriate color, and it changes state
25. on every clock tick."
26.  
27. ; timer
28. (define (tock time)
29.    (- time 1))
30.  
31. ; the-end function
32. (define (the-end time)
33.   (< time 1))
34.  
35. ; width of the scene
36. (define WIDTH 100)
37.  
38. ; height of the scene
39. (define HEIGHT 100)
40.  
41. ; scene itself
42. (define traff-light-scene
43.   (empty-scene WIDTH HEIGHT))
44.  
45. ; circle radius
46. (define RADIUS 50)
47.  
48. ; traffic light
49. (define (traffic-light-render color)
50.   (place-image
51.    (circle RADIUS "solid"
52.            (cond
53.     [(modulo 2 color) "green"]
54.     [(modulo 3 color) "yellow"]
55.     [else "red"]))
56.    50 50
57.    traff-light-scene))
58.  
59. ; traffic-light-next program
60. (define (traff-light-next time)
61.   (big-bang time
62.             (on-tick tock)
63.             (to-draw traffic-light-render)
64.             (stop-when the-end)
65.             ))
66.  
67. ; for testing
68. (traff-light-next 200)

=>

"Exercise 50. If you copy and paste the \r\nabove function definition into the definitions \r\narea of DrRacket and click RUN, DrRacket \r\nhighlights two of the three cond lines. \r\nThis coloring tells you that your test cases do \r\nnot cover the full cond itional. Add enough \r\ntests to make DrRacket happy."

check-expect: undefined;

cannot reference an identifier before its definition

in module: 'm

check-expect: undefined;

cannot reference an identifier before its definition

in module: 'm

check-expect: undefined;

cannot reference an identifier before its definition

in module: 'm

"Exercise 51. Design a big-bang program\r\n that simulates a traffic light for a \r\ngiven duration. The program renders the state of \r\na traffic light as a solid circle of \r\nthe appropriate color, and it changes state \r\non every clock tick."

empty-scene: undefined;

cannot reference an identifier before its definition

in module: 'm

big-bang: undefined;

cannot reference an identifier before its definition

in module: 'm