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 CounterResponse () =

    let mutable countsList:List<CountResult> = List<CountResult>()

    let mutable countResultsLookup:IReadOnlyDictionary<string,int> = readOnlyDict [("", 0)]

    [<JsonProperty(ObjectCreationHandling = ObjectCreationHandling.Replace)>]

    member this.CountResults

        with get() = countsList

        and set(value:List<CountResult>) =

            countResultsLookup <- value |> Seq.map(fun c -> c.Name, c.Count) |> readOnlyDict

            countsList <- value

​

    member x.Lookup(s) = countResultsLookup.Item(s)

​

let count = 101

​

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

​

let response = CounterResponse(CountResults = System.Collections.Generic.List<CountResult>(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))

​

​

​