24 lines
474 B
Forth
24 lines
474 B
Forth
|
open Sanchime.Json.Parser
|
||
|
|
||
|
let json = """
|
||
|
{
|
||
|
"Name": "Bob",
|
||
|
"Email": "bob@example.com",
|
||
|
"IsActive": true,
|
||
|
"Info": {
|
||
|
"Age": 18,
|
||
|
"Gender": "男",
|
||
|
"Address": "江西",
|
||
|
"City": "赣州",
|
||
|
"Record": [
|
||
|
"小学",
|
||
|
"初中",
|
||
|
"高中"
|
||
|
]
|
||
|
}
|
||
|
}
|
||
|
"""
|
||
|
|
||
|
let user = json |> parse
|
||
|
|
||
|
user |> printfn "%A"
|