27 lines
492 B
ObjectPascal
27 lines
492 B
ObjectPascal
type cl = class
|
|
public
|
|
procedure p(f: Func<string, IEnumerable<string>>);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure p(f: Func<integer, IEnumerable<integer>>);
|
|
begin
|
|
var res := f(3).ToList();
|
|
assert(res.Count = 4);
|
|
assert(res[0] = 0);
|
|
assert(res[1] = 1);
|
|
assert(res[2] = 4);
|
|
assert(res[3] = 9);
|
|
end;
|
|
|
|
procedure tt();
|
|
begin
|
|
p(x -> Range(0, x).Select(y -> y * y));
|
|
end;
|
|
end;
|
|
|
|
begin
|
|
(new cl()).p(x -> Range(0, x).Select(y -> y * y));
|
|
(new cl()).tt();
|
|
end. |