임 약간 좀 도움이 필요 ..... 스크립트는 ..... 다음

Question

가정하자 내가 입력을 할 수 AAAABBCCC 같은 패턴 .....

다음 스크립트는 T1 0 A와 같은 인쇄해야합니다 된 patern가 AAABBCC 같이 CABCCBA

경우 -4 B-2 C-3 0 T1

T1 수돗물이고 0 다음 라인을 나타낸다

......

다음 스크립트가 생성되어야 패턴 T1 0 A-3 B-2 C-2 0 T1 0 CAB C-2 BA 0 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으로 시작 .... T1과 종료하고

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