pascalabcnet/TestSuite/lambdas_generics5.pas
Бондарев Иван f406dfd173 fix #917
2018-08-10 14:22:52 +02:00

9 lines
248 B
ObjectPascal

begin
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);
assert(b.SequenceEqual(Seq('a','b','c','d','e','f')));
end.