IC
while (result = Ok () && enum.MoveNext()) do
Size: a a a
IC
VK
while (result = Ok () && enum.MoveNext()) do
VK
VK
AH
AH
VK
AH
VK
A
AH
[<EntryPoint>]
let main _ =
let f (xs: _ seq) action =
async {
use enum = xs.GetEnumerator()
let mutable result = Ok ()
while (result = Ok () && enum.MoveNext()) do
match! action enum.Current with
| Ok () -> ()
| error -> result <- error
return result
}
f (Seq.initInfinite id) (fun x -> async {
return Ok()
})
|> Async.RunSynchronously
|> ignore
0
AH
AH
AH
AH
AH
AK
VK
AH