如何在F#中简洁实现TPL Task重试工具（避免mutable变量）

针对你需要的TPL Task重试逻辑，这里提供一个完全基于函数式风格的实现，无需任何mutable变量，同时满足前n-1次吞异常、最后一次保留完整堆栈抛出的需求：

open System.Threading.Tasks

let retryAsync (maxRetries: int) (taskFactory: unit -> Task<'T>) : Task<'T> =
    // 递归尝试函数，通过剩余重试次数控制流程
    let rec attempt remaining = task {
        try
            // 执行目标任务
            return! taskFactory()
        with
        | _ when remaining > 1 ->
            // 还有重试次数，递归执行下一次尝试
            return! attempt (remaining - 1)
        | ex ->
            // 最后一次尝试失败，直接抛出原始异常（保留堆栈）
            return raise ex
    }
    
    // 启动第一次尝试，初始剩余次数为maxRetries
    attempt maxRetries

实现说明 #

• 利用F#的task计算表达式简化异步代码编写，和TPL Task原生兼容，适配HttpClient.GetAsync这类返回Task的操作
• 通过递归嵌套函数attempt替代可变状态，用remaining参数跟踪剩余重试次数，逻辑清晰且符合函数式编程习惯
• 异常处理分支明确：当剩余重试次数大于1时，自动忽略当前异常并发起下一次尝试；当进入最后一次尝试时，直接抛出捕获到的异常，完整保留原始堆栈跟踪

使用示例 #

以HttpClient.GetAsync为例，调用重试工具的方式如下：

open System.Net.Http

let httpClient = HttpClient()

// 最多重试3次获取指定URL内容
let fetchUrlAsync url =
    retryAsync 3 (fun () -> httpClient.GetAsync(url))
    |> Task.map (fun response ->
        // 确保响应成功，否则会触发异常进入重试逻辑
        response.EnsureSuccessStatusCode()
        response)

这个实现相比带mutable的版本更简洁、易读，同时避免了可变状态带来的潜在问题，完全贴合F#的语言特性。

内容的提问来源于stack exchange，提问作者nodakai