36 lines
678 B
Forth
36 lines
678 B
Forth
// Learn more about F# at http://fsharp.org
|
|
|
|
open System
|
|
open System.Diagnostics
|
|
open System.Threading.Tasks
|
|
open FSharp.Control.Tasks.Builders
|
|
|
|
let call i = async {
|
|
do! Async.Sleep 1
|
|
if i = 10 then
|
|
failwith "BOOM!"
|
|
return i
|
|
}
|
|
|
|
let run count = async {
|
|
let calls = Array.init count call
|
|
for call in calls do
|
|
let! _ = call
|
|
()
|
|
return 0
|
|
}
|
|
|
|
let makeTheCall () = task {
|
|
let! x = run 20
|
|
return x
|
|
}
|
|
|
|
[<EntryPoint>]
|
|
let main argv =
|
|
try
|
|
let results = makeTheCall().GetAwaiter().GetResult()
|
|
printfn "%A" results
|
|
with e ->
|
|
printfn "%s" <| string (e.Demystify())
|
|
0 // return an integer exit code
|