如何通过在F#中为每个延迟对象创建值来转换包含延迟对象的异构数组(没有反射)

open System

// 定义一个异构数组，包含延迟对象
let heterogeneousArray : obj[] = [| 
    lazy (DateTime.Now.AddDays(-1.0)) :> obj; 
    lazy (DateTime.Now) :> obj; 
    lazy (DateTime.Now.AddDays(1.0)) :> obj |]

// 定义一个转换函数，将延迟对象转换为实际值
let evaluateLazyObject (lazyObj : Lazy<DateTime>) =
    lazyObj.Value

// 创建一个新的数组，包含每个延迟对象的实际值
let transformedArray = 
    Array.map (fun obj -> 
        match obj with
        | :? Lazy<DateTime> as lazyObj -> evaluateLazyObject lazyObj
        | _ -> failwith "Invalid type in the array") heterogeneousArray

// 打印转换后的数组
transformedArray |> Array.iter (fun dt -> printfn "%A" dt)