pascalabcnet/TestSuite/lambdas_generics5.pas

9 lines
248 B
ObjectPascal
Raw Permalink Normal View History

2018-08-10 15:22:52 +03:00
begin
2015-05-14 22:35:07 +03:00
var a := new System.Collections.Generic.List<string>();
a.Add('abc');
a.Add('def');
var b := a.SelectMany(x -> x).Select(x -> x);
foreach var c in b do
writeln(c);
2018-08-10 15:22:52 +03:00
assert(b.SequenceEqual(Seq('a','b','c','d','e','f')));
2015-05-14 22:35:07 +03:00
end.