asynchronous - 异步等待 F# 中的键？

Question

我想阻止异步执行，直到用户按下控制台中的任何键。

这是我想出的：

let waitForAnyKey = async {
  do!
    new Task (fun () ->
      printfn "%s" "waiting for a key"
      Console.ReadKey () |> ignore
      printfn "%s" "got a key"
    )
    |> Async.AwaitTask
}

像这样使用：

async {
  printfn "%s" "Press any key... "
  do! waitForAnyKey
  printfn "%s" "You pressed a key. "
}

但是，Task永远不会运行。

• 我应该如何在 F# 中编写这个？
• 我可以Task完全避免为此创建一个吗？

标签： asynchronousf#

Answer 1

没有任务，有Async.FromContinuations

open System

let waitForAnyKey =
    Async.FromContinuations (fun (cont, _, _) ->
        printfn "%s" "waiting for a key"
        cont (Console.ReadKey ())
        printfn "%s" "got a key"
    )

let test () =
    async {
        let! key = waitForAnyKey
        printfn "%O" key.Key
    }
    |> Async.RunSynchronously

test ()