mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-19 19:19:32 +01:00
30 lines
596 B
PHP
30 lines
596 B
PHP
L:=TFPList.Create;
|
|
Try
|
|
T1:=Now;
|
|
L.Capacity:=Max;
|
|
For I:=0 to Max-1 do
|
|
L.Add(Pointer(I));
|
|
L.Clear;
|
|
For I:=0 to Max-1 do
|
|
L.Add(Pointer(I));
|
|
// Hustle
|
|
For I:=0 to Max-1 do
|
|
begin
|
|
J:=Random(Max);
|
|
K:=Random(Max);
|
|
L.Exchange(J,K);
|
|
end;
|
|
// Simple search
|
|
For I:=0 to Max-1 do
|
|
begin
|
|
J:=L.IndexOf(Pointer(I));
|
|
end;
|
|
// Simple search and remove
|
|
For I:=Max-1 downto 0 do
|
|
L.Remove(Pointer(I));
|
|
T2:=Now;
|
|
Writeln('Time : ',FormatDateTime('hh:nn:ss.zzz',T2-T1));
|
|
Finally
|
|
L.Free;
|
|
end;
|