Распечатать владельцев машин одного цвета и их грузоподъемность - PascalABC.NET

Формулировка задачи:

В текстовый файл занесена информация типа record об грузовиках: грузоподъемность, марка, цвет, владелец. Отсортировать машины по марке(в разные файлы). Распечатать владельцев машин одного цвета и их грузоподъемность. Пример входного файла:
Кликните здесь для просмотра всего текста
16 Mercedes-Benz Red Ben 10 Volvo Black John 12 Renault Yellow Mike 26 MAN Green Jake 15 Mercedes-Benz White Nick 11 DAF Yellow Mick 14 Renault White Steve 10 MAN Brown Robert

Код к задаче: «Распечатать владельцев машин одного цвета и их грузоподъемность - PascalABC.NET»

textual
begin
  var lst := ReadAllLines('thread1686479.txt');
  
  var gr := lst.GroupBy(s -> s.Split(' ')[1].Trim());
  foreach var g in gr do
    WriteAllLines(g.Key + '.txt', g.ToArray());
 
  var colors := lst.GroupBy(s -> s.Split(' ')[2]);
  foreach var c in colors do
    PrintLn(c.Key, ':', c.Select(s -> Format('({0}):{1}', s.Split(' ')[0], s.Split(' ')[3])));
end.

15   голосов, оценка 3.600 из 5


СОХРАНИТЬ ССЫЛКУ