7 lines
169 B
ObjectPascal
7 lines
169 B
ObjectPascal
begin
|
|
var x:= Arr(1..5);
|
|
x := x[:2] + x;
|
|
Assert(x.SequenceEqual(Arr(1,2,1,2,3,4,5)));
|
|
x := x?[:2] + x;
|
|
Assert(x.SequenceEqual(Arr(1,2,1,2,1,2,3,4,5)));
|
|
end. |