12 lines
236 B
ObjectPascal
12 lines
236 B
ObjectPascal
|
function test<T>(a: T): sequence of T;
|
|||
|
|
begin
|
|||
|
|
var lst: List<List<T>> := new List<List<T>>;
|
|||
|
|
lst.Add(new List<T>(Arr(a, a)));
|
|||
|
|
foreach var x in lst do
|
|||
|
|
begin
|
|||
|
|
yield x[0];
|
|||
|
|
end;
|
|||
|
|
end;
|
|||
|
|
begin
|
|||
|
|
assert(test(2).ToArray[0] = 2);
|
|||
|
|
end.
|