12 lines
258 B
ObjectPascal
12 lines
258 B
ObjectPascal
begin
|
|
var n := 300000000;
|
|
var a := ArrFill(n,1);
|
|
var l := Lst(a);
|
|
MillisecondsDelta;
|
|
for var i:=0 to n-1 do
|
|
a[i] := 2;
|
|
MillisecondsDelta.Println; // 143 ms
|
|
for var i:=0 to n-1 do
|
|
l[i] := 2;
|
|
MillisecondsDelta.Println; // 357 ms
|
|
end. |