Нечто подобное подойдет? module Async = let

Question

Нечто подобное подойдет? module Async = let

map f sbj =
async {
let! result = sbj
return f result
}
let and' left right =
[ left |> map Choice1Of2
right |> map Choice2Of2]
|> Async.Parallel
|> map (function
| [|Choice1Of2 left; Choice2Of2 right|] -> left, right
| p -> failwithf "WTF? %A" p
)

let a,(b,c) =
async.Return "a"
|> Async.and' (async.Return "b")
|> Async.and' (async.Return "c")
|> Async.RunSynchronously

#fsharp #programming #russian

0

24.08.2018

1 ответов

20 просмотров

Klei · Answer 1

Klei Автор вопроса

Наверное надо инвертировать результат left и right. Или сделать доп версию дабы не получать "инвертированный" кортеж.

0

24.08.2018

169 похожих чатов

Нечто подобное подойдет? module Async = let

1 ответов

Похожие вопросы