blob: 52d90e0eb42ae0ed84221de58b3d6d8c0403b78d (
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
|
lex
literal `a `b `+ `-
ignore /[ \n]/
end
def s
[`a `+ `b]
| [`a `- `b]
cons S: s "a + b
switch S
case [`a `- `b]
send stdout '1
case [`a `+ `b]
send stdout '2
switch S
case [`a `- `b]
send stdout '3
default
send stdout '4
switch S
case [`a `- `b]
send stdout '5
case [`a `+ `b]
send stdout '6
default
send stdout '7
switch S
case [`a `- `b]
send stdout '8
case [`a `- `b]
send stdout '9
default
send stdout '10
##### EXP #####
2
4
6
10
|