Для каждой строки файла вывести те буквы, которые в ней встречались ровно 3 раза подряд

@ZXQWY · Регистрация: 24.10.2016

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

18. В исходном текстовом файле записаны строки, содержащие строчные и прописные английские буквы. Требуется написать, которая для каждой строки исходного файла будет печатать в результирующий файл в алфавитном порядке только те буквы, которые встретились во входной последовательности ровно 3 раза подряд (друг за другом). Каждая буква при этом должна быть распечатана один раз. Буквы построенного слова должны быть прописными.
Например, пусть в одной из строк исходного файла содержатся следующие символы:
bbbtffbgbbfffrtatbafffma.
в результирующем файле должно быть:
bf

Помогите, пожалуйста

@volvo · 19.11.2016, 17:17

Pascal

begin
  WriteAllLines('out.txt',
    ReadAllLines('in.txt').Select(s -> begin
      var m := Regex.Matches(s, '(\w)\1+');
      var st := '';
      foreach var v : Match in m do
        if v.Value.Length = 3 then st += v.Value[1];
      result := st.Sorted().Distinct().JoinIntoString('');
    end).ToArray()
  );
end.

, например

@ZXQWY · 19.11.2016, 19:07 **[ТС]**

Cпасибо, но мне на Pascal.ABC надо в процедурах

@volvo · 19.11.2016, 19:18

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

мне на Pascal.ABC

Не надо было тогда вопрос задавать в разделе PascalABC.NET

А "в процедурах" мне неинтересно.

@ZXQWY 0 / 0 / 0 Регистрация: 24.10.2016 Сообщений: 16
		1
	Для каждой строки файла вывести те буквы, которые в ней встречались ровно 3 раза подряд 19.11.2016, 16:16. Показов 1833. Ответов 3 Метки нет (Все метки) 18. В исходном текстовом файле записаны строки, содержащие строчные и прописные английские буквы. Требуется написать, которая для каждой строки исходного файла будет печатать в результирующий файл в алфавитном порядке только те буквы, которые встретились во входной последовательности ровно 3 раза подряд (друг за другом). Каждая буква при этом должна быть распечатана один раз. Буквы построенного слова должны быть прописными. Например, пусть в одной из строк исходного файла содержатся следующие символы: bbbtffbgbbfffrtatbafffma. в результирующем файле должно быть: bf Помогите, пожалуйста 0

@ZXQWY 0 / 0 / 0 Регистрация: 24.10.2016 Сообщений: 16
	19.11.2016, 19:07 [ТС]	3
	Cпасибо, но мне на Pascal.ABC надо в процедурах 0

@volvo Супер-модератор 32793 / 21133 / 8144 Регистрация: 22.10.2011 Сообщений: 36,393 Записей в блоге: 8
	19.11.2016, 19:18	4
	Сообщение от ZXQWY мне на Pascal.ABC Не надо было тогда вопрос задавать в разделе PascalABC.NET А "в процедурах" мне неинтересно. 0

Опции темы