Напечатать слова, у которых первая буква слова входит в него ещё раз (считая заглавные)

@Ivan 12 · Регистрация: 16.12.2018

Author24 — интернет-сервис помощи студентам

Дана последовательность слов. Кол-во слов произвольное. Слова разделены пробелом, за последним точка. Напечатать слова у которых первая буква слова входит в него ещё раз(считая заглавные).

@JuriiMW · 16.12.2018, 14:55

Pascal

1
2
3

begin
  ReadString.ToLower.ToWords(' .'.ToArray).Where(word->word.GroupBy(v->v).First.Count>1).Print;
end.

@Sun Serega · 16.12.2018, 16:33

Сообщение от JuriiMW

word.GroupBy(v->v).First.Count>1

Лучше word.Skip(1).Contains(word.First).

.GroupBy делает много лишнего. А если там внутри используется словарь - ключ первого элемента может иногда быть не первой буквой.

@Ivan 12 0 / 0 / 0 Регистрация: 16.12.2018 Сообщений: 6
		1
	Напечатать слова, у которых первая буква слова входит в него ещё раз (считая заглавные) 16.12.2018, 14:30. Показов 623. Ответов 2 Метки нет (Все метки) Дана последовательность слов. Кол-во слов произвольное. Слова разделены пробелом, за последним точка. Напечатать слова у которых первая буква слова входит в него ещё раз(считая заглавные). 0

@Sun Serega 2308 / 1419 / 516 Регистрация: 07.04.2017 Сообщений: 4,723
	16.12.2018, 16:33	3
	Сообщение от JuriiMW `word.GroupBy(v->v).First.Count>1` Лучше `word.Skip(1).Contains(word.First)`. `.GroupBy` делает много лишнего. А если там внутри используется словарь - ключ первого элемента может иногда быть не первой буквой. 0