pascalabcnet/TestSuite/new1.pas

10 lines
196 B
ObjectPascal
Raw Permalink Normal View History

2017-10-15 16:08:57 +03:00
function f(l: sequence of integer): integer;
begin
Result := l.Sum;
end;
begin
var i: integer := f(new integer[](1,2));
assert(i = 3);
var j: integer := f(new List<integer>);
assert(j = 0);
end.