blob: c9209c3d4cad59f4cf4e5daf48df87c311718e34 (
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
|
MODULE Ch2 EXPORTS Main;
IMPORT SIO,IntSeq;
VAR
A1 := ARRAY[0..3] OF CARDINAL{1,3,2,4};
A2 := ARRAY[0..3] OF CARDINAL{1,1,2,2};
A3 := ARRAY[0..3] OF CARDINAL{3,1,3,2};
PROCEDURE DecompressedList(VAR A:ARRAY OF CARDINAL):IntSeq.T =
VAR Res := NEW(IntSeq.T).init(NUMBER(A));
BEGIN
FOR I := FIRST(A) TO LAST(A) BY 2 DO
FOR J := 1 TO A[I] DO Res.addhi(A[I+1]) END;
END;
RETURN Res
END DecompressedList;
PROCEDURE PrintSeq(READONLY S:IntSeq.T) =
BEGIN
FOR I := 0 TO S.size()-1 DO
SIO.PutInt(S.get(I));
SIO.PutChar(' ')
END;
SIO.Nl()
END PrintSeq;
BEGIN
PrintSeq(DecompressedList(A1));
PrintSeq(DecompressedList(A2));
PrintSeq(DecompressedList(A3))
END Ch2.
|
