Delphi代码 耗时 70ms
[Delphi] 纯文本查看 复制代码 procedure TestDelphi;
begin
var List := TList<Integer>.Create;
var TestCount := 0;
for var i := 0 to 10000000 - 1 do
begin
List.Add(i div 2 + 22);
end;
for var i := 0 to 10000000 - 1 do
begin
if i > 10 then
begin
Inc(testcount, List div 100);
TestCount := TestCount div 3 * 2 + 22;
end;
end;
Writeln(Testcount);
end;
begin
try
var watch := TStopwatch.StartNew;
TestDelphi;
watch.Stop;
Writeln(watch.ElapsedMilliseconds);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
except
on E: Exception do
Writeln(E.ClassName, ': ', E.Message);
end;
end.
|