V
Size: a a a
V
ДБ
VS
AH
type MaybeBuilder() =
member this.Bind (x, f) =
match x with
| None -> None
| Some v -> f v
member this.Return x = x |> Some
member this.ReturnFrom (x) = x
member this.Zero () = None
let maybe = MaybeBuilder()
let stringAddWorkflow x y z =
maybe {
let! a = strToInt x
let! b = strToInt y
let! c = strToInt x
if c > 3 then
printf "%d" c
return a + b + c
}
This control construct may only be used if the computation expression builder defines a 'Combine' method
VS
V
V
AH
AH
AH
V
MS
let yesterday month day =
let newDate = DateTime(2001, month, day).AddDays -1.
newDate.Month, newDate.Date
let yesterdayYobaSwitch = function
| month, day -> yesterday month day
MS
MS
AH
AH
SB
let yesterday month day =
let newDate = DateTime(2001, month, day).AddDays -1.
newDate.Month, newDate.Date
let yesterdayYobaSwitch = function
| month, day -> yesterday month day
NK
ST