cfad47cfa3/t3compiler/tads3/test/data/listsub.t
Download diff| 4b825dc642cb6eb9a060e54bf8d69288fbee4904 | cfad47cfa334b206c65f22086bcc5d63e6f70944 | ||
|---|---|---|---|
1 | #include "tads.h" | ||
2 | #include "t3.h" | ||
3 | |||
4 | main(args) | ||
5 | { | ||
6 | local a, b; | ||
7 | |||
8 | a = [1, 2, 3]; | ||
9 | b = []; | ||
10 | sayList(a - b); | ||
11 | } | ||
12 | |||
13 | sayList(lst) | ||
14 | { | ||
15 | "["; | ||
16 | for (local i = 1, local cnt = lst.length() ; i <= cnt ; ++i) | ||
17 | { | ||
18 | if (i != 1) | ||
19 | ", "; | ||
20 | tadsSay(lst[i]); | ||
21 | } | ||
22 | "]"; | ||
23 | } | ||
24 |