pascalabcnet/TestSuite/yieldparams.pas

11 lines
179 B
ObjectPascal
Raw Permalink Normal View History

2019-02-17 16:19:07 +03:00
function Get(params x: array of integer): sequence of integer;
begin
yield x[0];
yield x[1];
end;
begin
var a := Get(1,2).ToArray;
assert(a[0] = 1);
assert(a[1] = 2);
end.