Data commit

Task/JSON/F-Sharp/json-1.fs

@@ -0,0 +1,9 @@
+open Newtonsoft.Json
+type Person = {ID: int; Name:string}
+let xs = [{ID = 1; Name = "First"} ; { ID = 2; Name = "Second"}]
+
+let json = JsonConvert.SerializeObject(xs)
+json |> printfn "%s"
+
+let xs1 = JsonConvert.DeserializeObject<Person list>(json)
+xs1 |> List.iter(fun x -> printfn "%i  %s" x.ID x.Name)

Task/JSON/F-Sharp/json-2.fs

@@ -0,0 +1,3 @@
+[{"ID":1,"Name":"First"},{"ID":2,"Name":"Second"}]
+1  First
+2  Second

Task/JSON/F-Sharp/json-3.fs

@@ -0,0 +1,14 @@
+open FSharp.Data
+open FSharp.Data.JsonExtensions
+
+type Person = {ID: int; Name:string}
+let xs = [{ID = 1; Name = "First"} ; { ID = 2; Name = "Second"}]
+
+let infos = xs |> List.map(fun x -> JsonValue.Record([| "ID", JsonValue.Number(decimal x.ID); "Name", JsonValue.String(x.Name) |]))
+            |> Array.ofList |> JsonValue.Array
+
+infos |> printfn "%A"
+match JsonValue.Parse(infos.ToString()) with
+| JsonValue.Array(x) -> x |> Array.map(fun x -> {ID = System.Int32.Parse(string x?ID); Name = (string x?Name)})
+| _ -> failwith "fail json"
+|> Array.iter(fun x -> printfn "%i  %s" x.ID x.Name)

Task/JSON/F-Sharp/json-4.fs

@@ -0,0 +1,12 @@
+[
+  {
+    "ID": 1,
+    "Name": "First"
+  },
+  {
+    "ID": 2,
+    "Name": "Second"
+  }
+]
+1  "First"
+2  "Second"

Task/JSON/F-Sharp/json-5.fs

@@ -0,0 +1,7 @@
+open FSharp.Data
+type Person = {ID: int; Name:string}
+type People = JsonProvider<""" [{"ID":1,"Name":"First"},{"ID":2,"Name":"Second"}] """>
+
+People.GetSamples()
+|> Array.map(fun x -> {ID = x.Id; Name = x.Name} )
+|> Array.iter(fun x -> printfn "%i  %s" x.ID x.Name)

Task/JSON/F-Sharp/json-6.fs

@@ -0,0 +1,2 @@
+1  First
+2  Second