如果我有一个尝试将起始数字相除两次的函数。整个工作流必须返回一个 bool 值。
let divideBy bottom top =
if bottom = 0 then None
else Some (top/bottom)
let divideByWorkflow init x y =
match init |> divideBy x with
| None -> false
| Some a ->
match a |> divideBy y with
| None -> false
| Some b -> true
let good = divideByWorkflow 12 3 2
let bad = divideByWorkflow 12 3 0
以下构建器是否正确?
type BoolMaybe = BoolMaybe with
member __.Bind (expr, f) =
match expr with
| Some value -> f value
| None -> false
member __.Return expr = expr
let divideByWorkflow init x y =
BoolMaybe {
let! a = init |> divideBy x
let! b = a |> divideBy y
return true
}
最佳答案
我同意 Dzoukr 的回答,我的看起来略有不同:
let divideBy bot top =
match bot with
| 0 -> None
| _ -> Some (top / bot)
let divideByWorkflow init x y =
Some init
|> Option.bind (divBy x)
|> Option.bind (divBy y)
|> Option.isSome
不需要计算表达式,它在这里似乎没有增加任何好处。
关于.net - 使用单例区分联合制作计算表达式,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43536212/