在F#中使用块集合.TryTake

open System.Collections.Concurrent

let blockCollection = new BlockingCollection<int>()

// 生产者线程
let producer() =
    for i in 1 .. 10 do
        blockCollection.Add(i)
        printfn "Produced: %d" i

// 消费者线程
let consumer() =
    while true do
        match blockCollection.TryTake() with
        | true, value ->
            printfn "Consumed: %d" value
        | _ ->
            printfn "No more items to consume"
            break

// 启动生产者和消费者线程
let producerThread = System.Threading.Thread(producer)
let consumerThread = System.Threading.Thread(consumer)
producerThread.Start()
consumerThread.Start()

// 等待线程结束
producerThread.Join()
consumerThread.Join()