algorithm - 为 TCL 列表添加后缀

Question

我有一个包含列表的列表。

{
    {1, A},
    {2, A},
    {4, A},
    {6, B},
    {2, B},
    {7, C}
}

如何搜索第二个元素并在重复时添加索引？

预期输出:

{
    {1, A<0>},
    {2, A<1>},
    {4, A<2>},
    {6, B<0>},
    {2, B<1>},
    {7, C}
}

Answer 1

使用 Tcl 8.6

proc update {list} {
    lmap elem $list {
        set val [lindex $elem end]
        set n [expr {[incr count($val)] - 1}]
        lset elem end "$val<$n>"
    }
}

set a {{1 A} {2 A} {4 A} {6 B} {2 B} {7 C}}
set new [update $a]