cfad47cfa3/t3compiler/tads3/test/data/randvec.t
Download diff| 4b825dc642cb6eb9a060e54bf8d69288fbee4904 | cfad47cfa334b206c65f22086bcc5d63e6f70944 | ||
|---|---|---|---|
1 | #include <tads.h> | ||
2 | |||
3 | main(args) | ||
4 | { | ||
5 | local i = 65; | ||
6 | local v = new Vector(26).fillValue(nil, 1, 26) | ||
7 | .applyAll({x: x = makeString(i++)}); | ||
8 | |||
9 | for (i = 1 ; i <= 50 ; ++i) | ||
10 | "<<rand(v)>> "; | ||
11 | |||
12 | randomize(); | ||
13 | "\b"; | ||
14 | |||
15 | for (i = 1 ; i <= 500 ; ++i) | ||
16 | "<<rand(v)>> "; | ||
17 | } | ||
18 |