1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

#light

// ----------------------------
// Listing 13-9.

let Parallel(taskSeq) =
    Async.Primitive (fun (cont,econt) ->
        let tasks = Seq.to_array taskSeq
        let count = ref tasks.Length
        let results = Array.zeroCreate  tasks.Length
        tasks |> Array.iteri (fun i p ->
            Async.Start
               (async { let! res = p
                        do results.[i] <- res;
                        let n = System.Threading.Interlocked.Decrement(count)
                        do if n=0 then cont results })))

1

Error    1    This construct is deprecated. This overload will be removed in a future version of F#. Please use the overload where the callback takes three continuations, for success, exception and cancellation    C:\Documents and Settings\Administrator\My Documents\Visual Studio 2008\Projects\ConsoleApplication6\ConsoleApplication6\Program.fs    9    5    ConsoleApplication6