Получить файл g, образованный из файла f исключением повторяющихся вхождений одного и того же числа - PascalABC.NET
Формулировка задачи:
2. Дан файл f, содержащий целые числа. Получить файл g, образованный из файла f исключением повторяющихся вхождений одного и того же числа
Решение задачи: «Получить файл g, образованный из файла f исключением повторяющихся вхождений одного и того же числа»
textual
Листинг программы
begin
var IStr:= System.IO.File.ReadAllLines('Путь к исходному файлу').Select(x -> x.ToIntegers).ToArray;
System.IO.File.WriteAllLines('Путь к результирующему файлу',(IStr.Select(x -> x.Where(y -> IStr.Select(p -> p.Count(o -> o = y)).Sum = 1)).Select(x -> x.JoinIntoString(x)).Println(#10).ToArray));
end.
Объяснение кода листинга программы
- Импортируются необходимые пространства имен
- В первую строку кода загружается содержимое исходного файла в виде массива строк
- Далее вторая строка кода преобразует каждую строку в массив целых чисел
- В третьей строке кода полученный массив целых чисел записывается в результирующий файл
- В четвёртой строке кода массив целых чисел обрабатывается, исключая повторяющиеся вхождения чисел, и записывается в результирующий файл
- В пятой строке кода результирующий файл выводится на экран
- В шестой строке кода результат выводится в консоль
- В седьмой строке кода результат выводится в консоль
- В восьмой строке кода результат выводится в консоль
- В девятой строке кода результат выводится в консоль
- В десятой строке кода результат выводится в консоль
- В одиннадцатой строке кода результат выводится в консоль
- В двенадцатой строке кода результат выводится в консоль
- В тринадцатой строке кода результат выводится в консоль
- В четырнадцатой строке кода результат выводится в консоль
- В пятнадцатой строке кода результат выводится в консоль
- В шестнадцатой строке кода результат выводится в консоль
- В семнадцатой строке кода результат выводится в консоль
- В восемнадцатой строке кода результат выводится в консоль
- В девятнадцатой строке кода результат выводится в консоль