anchor.diff:      let vectors = [| for sample in samples -> sample.Vector |]
   
   
  -    let getMinsAndMaxsOfDimensins vectors = 
  +    let getMinsRangesAndMaxsOfDimensions vectors = 
           let first = Seq.head vectors
           let mins = Array.copy first
           let maxs = Array.copy first
  
positive.code:     printfn "All done."; System.Console.ReadKey() |> ignore
      0
  
  
negative.code:             printf "%s" ((fst grp).PadRight(18))
              printfn "%d" (snd grp |> Array.length) )
  
  
      let dimMins, dimRanges, dimMaxs = getMinsRangesAndMaxsOfDimensions vectors
      let randomCentroids = getRandomCentroids classCount dimMins dimMaxs
  
      let mutable keepGoing = true
      let mutable centroids = randomCentroids
      let mutable count = 0
  
      while keepGoing do
          printfn ""
          let clusters  = getNewClusters samples centroids
          clusters |> Array.iter displayCluster
          let newCentroids = clusters |> Array.map getNewCentroid
          keepGoing <- checkKeepGoing centroids newCentroids dimRanges
          centroids <- newCentroids
          count <- count + 1
          printfn "Completed cycle:  %d" count
  