19 lines
427 B
Plaintext
19 lines
427 B
Plaintext
declare t(20) fixed initial (1, 5, 6, 2, 1, 7,
|
|
5, 22, 4, 19, 1, 1, 6, 6, 6, 8, 9, 10, 11, 12);
|
|
declare (i, j, k, n, e) fixed;
|
|
|
|
n = hbound(t,1);
|
|
i = 0;
|
|
outer:
|
|
do k = 1 to n;
|
|
e = t(k);
|
|
do j = k-1 to 1 by -1;
|
|
if e = t(j) then iterate outer;
|
|
end;
|
|
i = i + 1;
|
|
t(i) = e;
|
|
end;
|
|
|
|
put skip list ('Unique elements are:');
|
|
put edit ((t(k) do k = 1 to i)) (skip, f(11));
|