Fix assertion for proper Huffman merge pattern: 0 == 1 modulo 1.
[pspp] / tests / vector.stat
1 title 'Test VECTOR utility'.
2
3 data list /c 1(a).
4 begin data.
5 5
6 3
7 4
8 1
9 2
10 end data.
11
12 string x1 to x5 y1 to y5(a1).
13 vector x=x1 to x5.
14 *formats all(f1).
15 compute x(number(c))=c.
16 leave x1 to x5.
17 list.
18
19 vector x=x1 to x5.
20 vector y=y1 to y5.
21 *formats all(f1).
22 compute y(number(c))=x(number(c)+1).
23 display vector.
24 list.