blob: 16c42502fa4c46775ef79fb1bff5c87e2666fe0a (
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
99
100
101
102
103
104
105
106
107
108
109
110
111
|
(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))
(player_choice
(foreach test_set e
(if (= (rand 0 1) 1)
(
( Choice (var e) )
(
Chosen var e: (var e)
)
)
)
)
)
(end)
|
