如何在f中将obj转储到xml#

我试着将C代码转换为F代码。
但是失败了。
这是bolgpost的C代码 LINQ Reduces Line Counts and Makes Code “Pop”

这是关于FP的。

我把它翻译成

#r "System.Core.dll"
#r "System.Xml.Linq.dll"

open System
open System.Reflection
open System.Collections
open System.Collections.Generic
open System.Xml.Linq

let (|V|S|A|O|) o =
    if o.GetType().IsValueType then V
    elif o.GetType()=typeof<string> then S
    elif o.GetType().IsArray then A
    else O

let rec obj2xml r o =
    match o with
    | V | S -> new XElement(r, o)
    | A -> o |> Array.map (fun z -> obj2xml r z)
    | O -> new XElement(r, o.GetType().GetProperties() |> Array.map (fun z -> obj2xml (z.Name) (z.GetValue(o, null))))

| V S->新Xelement(R,O) 返回A X元素
| a->o_gt;array.map(fun z->obj2xml r z) 返回A 数组
我想不出来!
我还没有遵守!

请帮帮我!