We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent f2e2c88 commit 93877b1Copy full SHA for 93877b1
1 file changed
htdp-test/tests/stepper/manual-tests.txt
@@ -37,7 +37,35 @@ e.g.
37
(check-expect (f (list 4))
38
(list 7 13))
39
40
-- try big-bang program.
+- try big-bang program. Here's one
41
42
-- try SdP program, make sure that test cases don't show extra steps.
+#lang htdp/isl
43
+
44
+(require 2htdp/universe
45
+ )
46
47
+(require 2htdp/image)
48
49
+(define (world-is-zero? n)
50
+ (<= n 0))
51
52
+(define (world-render n)
53
+ (square 230 "solid" "blue"))
54
55
+(define (tick-fun n)
56
+ (- n 1))
57
58
59
+(big-bang 30
60
+ [stop-when world-is-zero?]
61
+ [to-draw world-render]
62
+ [on-tick tick-fun])
63
64
65
66
+- try SdP program, make sure that test cases don't show extra steps. Here's one:
67
68
+(define f (λ (x) (+ 3 (+ x 4))))
69
70
+(f 9)
71
0 commit comments