pascalabcnet/TestSuite/extensionmethods20.pas

9 lines
241 B
ObjectPascal
Raw Normal View History

2017-03-13 23:25:05 +03:00
function SkipLast1<T>(self: sequence of T; count: integer := 1): sequence of T; extensionmethod;
begin
Result := Self.Reverse.Skip(count).Reverse;
end;
begin
var arr := Seq(1,2,3).SkipLast1(2).ToArray;
assert(arr[0] = 1);
end.