22 lines
391 B
ObjectPascal
22 lines
391 B
ObjectPascal
|
type cl = class
|
||
|
|
public
|
||
|
|
constructor(f: Func<string, IEnumerable<string>>);
|
||
|
|
begin
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
constructor (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;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
begin
|
||
|
|
new cl(x -> Range(0, x).Select(y -> y * y));
|
||
|
|
end.
|