Объединение нескольких списков данных вместе по общему идентификатору в F #

У меня есть несколько списков данных из 4 разных источников с общим набором идентификаторов, которые я хотел бы объединить вместе, на основе ID, в основном заканчивая новым списком, по одному для каждого ID и одной записи для каждого источника.

Объекты в выходном списке из каждого из 4 источников выглядят примерно так:

type data = {ID : int; value : decimal;}

так, например, я бы:

let sourceA = [data1, data2, data3];
let sourceB = [data1, data2, data3];
let sourceC = [data1, data2, data3];
let sourceD = [data1, data2, data3];

(Я понимаю, что этот код недействителен, просто пытается дать базовую идею... списки фактически вытащились и сгенерированы из базы данных)

Я хотел бы использовать sourceA, sourceB, sourceC и sourceD и обработать их в список, содержащий объекты примерно так:

type dataByID = {ID : int; valueA : decimal; valueB : decimal; valueC : decimal; valueD : decimal; }

... чтобы я мог их распечатать в CSV, причем первым столбцом был ID и coummns 2 - 5, являющийся данными из источников A - D, соответствующих ID в этой строке.

Я абсолютно не знаком с F #, так что бы лучше всего обработать эти данные, чтобы я совпадал со всеми значениями исходных данных по ID??

Ответы

Ответ 1

Кажется, что вы можете просто объединить все списки, а затем использовать Seq.groupBy, чтобы получить список, содержащий уникальные идентификаторы во входных списках и все значения, связанные с идентификатором. Это можно сделать, используя что-то вроде:

let data = 
  [ data1; data2; data3; data4 ]   // Create list of lists of items 
  |> Seq.concat                    // Concatenate to get a single list of items
  |> Seq.groupBy (fun d -> d.ID)   // Group elements by ID

seq { for id, values in data -> 
        // ID is the id and values is a sequence with all values 
        // (that come from any data source) }

Если вы хотите связать источник (будь то операция data1, data2, etc...) with the value then you can first use map`, чтобы добавить индекс источника данных:

let addIndex i data = 
  data |> Seq.map (fun v -> i, v)

let data = 
  [ List.map (addIndex 1) data1;
    List.map (addIndex 2) data2;
    List.map (addIndex 3) data3;
    List.map (addIndex 4) data4 ]
  |> Seq.concat
  |> Seq.groupBy (fun (index, d) -> d.ID)

Теперь data также содержит индекс источника данных (от 1 до 3), поэтому при итерации по значениям вы можете использовать индекс, чтобы узнать, из какого источника данных приходит элемент. Даже более приятную версию можно записать с помощью Seq.mapi для перебора списка источников данных и автоматического добавления индекса ко всем значениям:

let data = 
  [ data1; data2; data3; data4 ]
  |> Seq.mapi (fun index data -> Seq.map (addIndex index) data)
  |> Seq.concat
  |> Seq.groupBy (fun (index, d) -> d.ID)