pascalabcnet/InstallerSamples/LINQ/Palindroms.pas

6 lines
227 B
ObjectPascal
Raw Permalink Normal View History

// Вывести все палиндромы в строке, упорядоченные по длине
2015-05-14 22:35:07 +03:00
begin
var s := ' hello aha paap zz ';
s.ToWords.Where(w -> w.Inverse = w).OrderBy(s->s.Length).Println(',');
end.