AzureTextAnalytics, semantic, concat function

program.fs

type responseJson =
    {
        documents: seq<responseDoc>
        errors: string list
    }
and responseDoc =
    {
        score: double
        id: string
    }

type results =
    {
        sentiments: estimatedDoc list
    }
and estimatedDoc =
    {
        Id: string
        Text: string
        Score: double
    }

let concatSentimentAndInput = 
    let json = createJson (commentaries.Load("input.csv").Rows)
    let estimate = getSentimentScore json
    let parsedSentiment = JsonConvert.DeserializeObject<responseJson>(estimate)
    parsedSentiment.documents
    |> Seq.map (fun x -> 
        {
            Id = x.id; 
            Text = json.documents 
                |> Seq.where (fun y -> y.id.Equals x.id) 
                |> Seq.head 
                |> (fun y -> y.text); 
            Score = x.score
        }
    )
    |> Seq.sortBy (fun x -> x.Score)