anchor.diff:                          let partitions = Partitions.ofLongRange workerCount fileSize
                           let! results = 
                               partitions 
  -                            |> Array.map (fun (s, e) -> createTask s e collectorf) 
  +                            |> Array.mapi (fun i (s, e) -> (createTask s e collectorf, workers.[i % workers.Length])) 
                               |> Cloud.Parallel
                           return! combiner results 
                       else
  
positive.code:                         let partitions = Partitions.ofLongRange workerCount (int64 source.Length)
                          let! results = 
                              partitions 
                              |> Array.map (fun (s, e) -> createTask [| for i in s..(e - 1L) do yield source.[int i] |] collectorf) 
                              |> Cloud.Parallel
                          return! combiner results 
                      else
  
negative.code:                             partitions
                              |> Partitions.ofArray workerCount
                              |> Seq.filter (not << Array.isEmpty)
                              |> Seq.mapi (fun i partitions -> (computePartitions partitions, workers.[i % workers.Length]))
                              |> Cloud.Parallel
  
                          return! combiner results
  