pascalabcnet/TestSuite/lambdas_in_generics_1.pas

9 lines
217 B
ObjectPascal
Raw Permalink Normal View History

2018-08-10 15:22:52 +03:00
function psd<T>(e: IEnumerable<T>): IEnumerable<T>; where T:constructor;
2015-05-14 22:35:07 +03:00
begin
result := e.OrderBy(x -> x);
end;
begin
var ttt := psd(Seq(1,2,4,2,3,5,6));
2018-08-10 15:22:52 +03:00
assert(ttt.SequenceEqual(Seq(1,2,2,3,4,5,6)));
2015-05-14 22:35:07 +03:00
end.