20 lines
523 B
ObjectPascal
20 lines
523 B
ObjectPascal
procedure p<T>(e: IEnumerable<T>); where T:integer, constructor;
|
|
begin
|
|
var kkk := 5;
|
|
var rr := new List<integer>;
|
|
for var i := 1 to 4 do
|
|
rr.Add(e.Select(x->begin
|
|
var tt: T := new T();
|
|
var jj := e is IEnumerable<T>;
|
|
result := x + kkk + i;
|
|
end).ToList()[0]);
|
|
assert(rr.Count = 4);
|
|
assert(rr[0] = 11);
|
|
assert(rr[1] = 12);
|
|
assert(rr[2] = 13);
|
|
assert(rr[3] = 14);
|
|
end;
|
|
|
|
begin
|
|
p(Seq(5));
|
|
end. |