AHK:从列表中去掉重复项，并在各自的列表项中添加重复计数

originalList := ["A", "B", "C", "A", "B", "D", "E", "E", "E"]
newList := []

Loop, % originalList.MaxIndex()
{
    currentItem := originalList[A_Index]
    if (!IsInList(currentItem, newList))
    {
        count := CountOccurrences(currentItem, originalList)
        newItem := currentItem . " (" . count . ")"
        newList.Push(newItem)
    }
}

MsgBox % newList.Join(", ")

IsInList(item, list)
{
    for index, value in list
    {
        if (value = item)
            return true
    }
    return false
}

CountOccurrences(item, list)
{
    count := 0
    for index, value in list
    {
        if (value = item)
            count++
    }
    return count
}