Question

Однажды программист Вася решил послать своему другу письмо. Он подробно рассказал в нем, как у него дела. И, в конце концов, вышло большое послание. Но почта не позволяет пересылать такие большие письма. После долгих раздумий Вася решил его сжать и для этого придумал оригинальный метод. Если подряд идут несколько одинаковых символов, а точнее три и более, то он их заменяет на их

количество и символ, который повторяется. Но Вася был плохим программистом... Помогите ему сжать письмо.

Входные данные: s

Выходные данные:K

Где: S-письмо не более 255 символов, K-сжатое письмо

Пример ввода: GGHHHHGDDDDHHHKKKKKJJJ

Пример вывода: GG4HG4D3H5K3J

Answer 1

PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018

begin

 ReadString.AdjacentGroup.SelectMany(t -> t.Count >= 3 ? (t.Count + t[0]).ToCharArray : t).Println;

end.