|
@@ -128,8 +128,10 @@ type
|
|
if (prevTime > 0) and (time / prevTime > 3) then
|
|
if (prevTime > 0) and (time / prevTime > 3) then
|
|
begin
|
|
begin
|
|
writeln;
|
|
writeln;
|
|
- writeln('Bad sorting algorithm behaviour');
|
|
|
|
|
|
+ writeln('Potentially bad sorting algorithm behaviour');
|
|
|
|
+ { causes too many false negative
|
|
halt(1);
|
|
halt(1);
|
|
|
|
+ }
|
|
end;
|
|
end;
|
|
prevTime := time;
|
|
prevTime := time;
|
|
write(', ');
|
|
write(', ');
|