mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 09:33:40 +02:00
31 lines
505 B
ObjectPascal
31 lines
505 B
ObjectPascal
{$mode objfpc}
|
|
|
|
uses gpriorityqueue;
|
|
|
|
type
|
|
lesslli = class
|
|
public
|
|
class function c(a,b: longint):boolean;inline;
|
|
end;
|
|
|
|
class function lesslli.c(a,b: longint):boolean;inline;
|
|
begin
|
|
c:=a<b;
|
|
end;
|
|
|
|
type priorityqueuelli = specialize TPriorityQueue<longint, lesslli>;
|
|
|
|
var data:priorityqueuelli; i:longint;
|
|
|
|
begin
|
|
data:=priorityqueuelli.Create;
|
|
for i:=1 to 10 do
|
|
data.Push(random(1000));
|
|
while not data.IsEmpty do begin
|
|
writeln(data.Top);
|
|
data.Pop;
|
|
end;
|
|
|
|
data.Destroy;
|
|
end.
|