我需要一些帮助......一个脚本......可以执行以下操作

Question

假设我输入像 AAAABBCCC 这样的模式......

那么脚本应该像 T1 0 A-4 B-2 C-3 0 T1 一样打印

，其中 T1 是点击，0 表示下一行......

如果模式是这样的AAABBCC CABCCBA

那么脚本应该生成一个模式 T1 0 A-3 B-2 C-2 0 T1 0 CAB C-2 BA 0 T1 # 应该以 T1 开始并以 T1 结束......并且模式之间只允许有一个 T1...... 我是TCL新手，请大家帮忙......

Answer 1

set pattern1 {AAAABBCCC}
set pattern2 {AAABBCC
CABCCBA}

proc process {pattern} {
    lappend result "T1"
    foreach line [split $pattern "\n"] {
        lappend result "0"
        foreach {chunk symbol} [regexp -all -inline {(.)(?:\1+)?} $line] {
            set num [string length $chunk]
            lappend result $symbol[expr {($num>1)?"-$num":""}]
        }
        lappend result "0" "T1" "\n"
    }
    return [join $result]
}

puts [process $pattern1]
puts [process $pattern2]

上面代码的输出：

T1 0 A-4 B-2 C-3 0 T1

T1 0 A-3 B-2 C-2 0 T1
 0 C A B C-2 B A 0 T1