tcl - 计算列表中唯一元素的数量

Question

假设我有一个列表，a b c b d e e f ...，我不知道里面有多少种不同的元素。

如何计算每个唯一元素的数量并打印出来？输出看起来像:

a: 32b: 12c: 6…

Answer 1

你必须数一数。这对于计数器数组或字典来说并不难。我将使用字典，因为它们将按首次出现的顺序打印。 (对于数组，您会得到一个“随机”顺序，或者您必须对它们进行排序。)

set counters {}
foreach item $list {
    dict incr counters $item
}
dict for {item count} $counters {
    puts "${item}: $count"
}