anchor.diff:                      let! workerCount = 
                           match !self.DegreeOfParallelism with
                           | Some n -> cloud { return n }
  -                        | None -> Cloud.GetWorkerCount()
  +                        | None -> getWorkerCount()
                       
                       let createTask (partitionId : int) (collector : Cloud<Collector<'T, 'S>>) = 
                           cloud {
  
positive.code:                     let! workerCount = 
                          match !self.DegreeOfParallelism with
                          | Some n -> cloud { return n }
                          | None -> Cloud.GetWorkerCount()
  
                      let createTask array (collector : Cloud<Collector<'T, 'S>>) = 
                          cloud {
  
negative.code:     /// <param name="source">The input CloudArray.</param>
      let cache (source : CloudArray<'T>) : Cloud<CloudArray<'T>> = 
          cloud {
              let! workerCount = getWorkerCount()
              let createTask (pid : int) (cached : CachedCloudArray<'T>) = 
                  cloud {
                      let! slice = (cached :> CloudArray<'T>).GetPartition(pid)
  