open System

open System.Collections

open System.Collections.Generic

open System.Linq

open System.Text

​

open Microsoft.FSharp.Reflection

open Microsoft.FSharp.Core

​

open Newtonsoft.Json

open Newtonsoft.Json.Linq

open Newtonsoft.Json.Converters

open Newtonsoft.Json.Serialization

​

//https://stackoverflow.com/questions/74934702/how-can-i-configure-newtonsoft-to-set-a-property-via-the-property-setter

​

let readOnlyDict<'Key, 'Value when 'Key : equality>(input :  seq<'Key * 'Value>) = new System.Collections.ObjectModel.ReadOnlyDictionary<'Key,'Value>(dict input) :> IReadOnlyDictionary<'Key, 'Value>

​

type CountResult = { Name : string; Count : int }

​

type CountResultCollection() = 

    inherit System.Collections.ObjectModel.KeyedCollection<string,CountResult>()

    override this.GetKeyForItem i = i.Name

​

type CounterResponse (l : CountResult seq) =

    let countList = CountResultCollection()

    do

        for c in l do countList.Add(c)

    new() = CounterResponse(Seq.empty)

    member this.CountResults = countList

​

    member x.Lookup(s : string) = countList.Item(s).Count

​

let count = 101

​

let countResults = [| {Name = "Count01"; Count = count}; {Name = "Count02"; Count = count}; {Name = "Count03"; Count = count} |] |> Array.toSeq

​

let response = CounterResponse(countResults)

​

let json = JsonConvert.SerializeObject(response, Formatting.Indented)

​

for item in response.CountResults do

      printfn "(%s, %i)" item.Name (response.Lookup(item.Name))

​

Console.WriteLine(json)

​

let response2 = JsonConvert.DeserializeObject<CounterResponse>(

    """

    {

        "countResults": [

            { "name": "Count01","count": 4 },

            { "name": "Count02", "count": 2 },

            { "name": "Count3", "count": 1 },

        ],

        "version": "6.0.0.0",

        "errorSection": {

            "validationErrors": [],

            "code": "200",

            "message": "Success"

        }

    }

    """

)

for item in response2.CountResults do

      printfn "(%s, %i)" item.Name (response2.Lookup(item.Name))

​

​

​