Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
7
Task/JSON/F-Sharp/json-5.fs
Normal file
7
Task/JSON/F-Sharp/json-5.fs
Normal file
|
|
@ -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)
|
||||
Loading…
Add table
Add a link
Reference in a new issue