Number of real authors

gitStatistics.fsx

let consolidateNames name =
    match name with
    |authorName when mapAuthors.ContainsKey name -> (mapAuthors.TryFind name).Value
    |authorName -> authorName

let numberOfAuthors =
    totalCommits
    |> Array.groupBy(fun c -> c.CommitInfo.Author)
    |> Array.map(fun a -> consolidateNames (fst a))
    |> Array.distinct
    |> Array.length
    
--------------------------------------------------------------
val numberOfAuthors : int = 16