blob: 02a04c413f834ddc04f10c2730665a03dd6aeb08 (
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
|
@(bind l ("zero" "one" "two" "three" "four"))
@(bind a (@[l 0..0] @[l 0..2] @[l 0..3] @[l 0..4] @[l 0..5]))
@(output)
@(repeat :counter i)
counter:@i:A
@(repeat)
main:@a
@(first)
first:@a
@(mod 1 2)
odd:@a
@(mod 0 2)
even:@a
@(last)
last:@a
@(modlast 1 2)
oddlast:@a
@(modlast 0 2)
evenlast:@a
@(empty)
empty
@(end)
counter:@i:B
@(repeat)
main:@a
@(first)
first:@a
@(mod 1 2)
odd:@a
@(mod 0 2)
even:@a
@(last)
last:@a
@(empty)
empty
@(end)
@(end)
@(end)
|