Submission #3770013

Source Code Expand

program ces;
 uses
  GArrayUtils,GVector,GUtil;
 type
  a=array[0..1000001] of longint;
  b=specialize TGreater<longint>;
  //wb=specialize TVector<longint>;
  wa=specialize TOrderingArrayUtils<a,longint,b>;
 var
  haha:a;
  i,n:longint;
 begin
  randomize;
  writeln(haha[0]);
  n:=10;
  for i:=0 to n-1 do
   haha[i]:=random(12345);
  for i:=0 to n-2 do
   write(haha[i],' ');
  writeln(haha[n-1]);
  wa.sort(haha,n);
  for i:=0 to n-2 do
   write(haha[i],' ');
  writeln(haha[n-1]);
 end.

Submission Info