blob: 2148863b281d7c93b0b78b6f6b9b425f0ee8330b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
|
(fate_version 1)
(global int i)
(player_choice
(
( Wrong Choice 0 )
(set i 1)
(assert (false) FAILED: Player Choice A)
)
(
( Right Choice )
Took the right choice.
(set i 2)
)
(
( Wrong Choice 1 )
(set i 1)
(assert (false) FAILED: Player Choice B)
)
)
(assert (= (var i) 2) FAILED: Player Choice C, i: (var i))
(player_choice
(if (false)
(
( Wrong Choice 0 )
(set i 1)
)
)
(ifelse (false)
(
( Wrong Choice 1 )
(set i 3)
)
(if (true)
(
( Right Choice )
(set i 6)
)
)
)
)
(assert (= (var i) 6) FAILED: Player Choice D, i: (var i))
(global (set int) test_set)
(while (>= (var i) 0)
(add (var i) test_set)
(set i (- (var i) 1))
)
(foreach test_set e
(var e)
)
(player_choice
(if (false)
(
( Wrong Choice -1 )
(set i 1)
)
)
(foreach test_set e
(ifelse (= (var e) 3)
(
( Correct Choice (var e) )
(
Chosen var e: (var e)
(set i 653)
)
)
(
( Wrong Choice (var e) )
(
Chosen var e: (var e)
(set i (var e))
)
)
)
)
(ifelse (false)
(
( Wrong Choice 1 )
(set i 3)
)
(
( Wrong Choice Other )
(set i 6)
)
)
)
(assert (= (var i) 653) FAILED: Player Choice E, i: (var i))
(end)
|
