Question

Обработка текста. Считать предложение из файла. Слова разделены запятыми. В каждом слове первую букву перенести в конец слова. В файл записать предложение по словам. Предложение: «The best fish swim near the bottom» Программа должна читать текст из файла «input.txt» и выводить последовательность в файл «output.txt».

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var MySwap:string->string:=
      w->begin var n:=w.Length; Result:=w.Last+w[2:n]+w.First end;
  var a:=ReadAllText('input.txt').Replace(',',' ').ToWords;
  WriteAllText('output.txt',a.Select(w->MySwap(w)).JoinIntoString)
end.

b419e3f083c1543375a30ec100cb391d.txt

c1244675f8bea347bded1379ce280839.txt