summaryrefslogtreecommitdiff
path: root/packages/fcl-stl/doc/sortingexample.pp
blob: 4aa155909dea012e2139bfd73638a57ac9055a20 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses garrayutils, gutil, gvector;

type vectorlli = specialize TVector<longint>;
     lesslli = specialize TLess<longint>;
     sortlli = specialize TOrderingArrayUtils<vectorlli, longint, lesslli>;

var data:vectorlli; n,i:longint;

begin
  randomize;
  data:=vectorlli.Create;
  read(n);
  for i:=1 to n do
    data.pushback(random(1000000000));
  sortlli.sort(data, data.size());
  for i:=1 to n do
    writeln(data[i-1]);

  data.Destroy;
end.