xóa danh sách phụ khỏi danh sách trong tcl

Question

Tôi muốn xóa danh sách phụ khỏi danh sách trong Tcl. Tôi biết làm thế nào để làm điều đó cho danh sách chính bằng cách sử dụng lreplace nhưng tôi không biết làm thế nào để làm điều đó cho một danh sách phụ. Ví dụ:

set a { 1 2 { {3 4} { 4 } } } 

Bây giờ tôi muốn loại bỏ {4} từ danh sách nội { {3 4} {4} }. Danh sách cuối cùng phải là:

a { 1 2 { {3 4} } }

Vui lòng đề xuất cách chấm điểm.

Answer 1

Kết hợp lindex để tải danh sách phụ nội bộ, lreplace để xóa phần tử của danh sách phụ nội bộ được trích xuất và lset để đặt lại danh sách phụ đã sửa đổi.

Nhưng thành thật mà nói, tôi có cảm giác có điều gì đó sai về mô hình dữ liệu của bạn.

Answer 2

proc retlist {a} { 
    set nl "" 
    foreach i $a { 
     if {[llength $i] > 1} { 
      set nl2 "" 
      foreach i2 $i { 
       if {[llength $i2] > 1} { lappend nl2 $i2 } 
      } 
      lappend nl $nl2 
     } else { 
      lappend nl $i 
     } 
    } 
    return $nl 
} 

Nếu bạn cần độ sâu thay đổi, bạn sẽ bị mất với mã này. Bạn cần đệ quy cho điều đó.

% set a {1 2 {{3 4} {5}}} 
1 2 {{3 4} {5}} 
% retlist $a 
1 2 {{3 4}} 

Vì danh sách ngoài không bao giờ được hiển thị trong tclsh.

Answer 3

Nó đòi hỏi một vài thủ thuật để làm độc đáo:

proc lremove {theList args} { 
    # Special case for no arguments 
    if {[llength $args] == 0} { 
     return {} 
    } 
    # General case 
    set path [lrange $args 0 end-1] 
    set idx [lindex $args end] 
    lset theList $path [lreplace [lindex $theList $path] $idx $idx] 
} 

set a [lremove $a 2 1] 

này hoạt động vì cả hai lset và lindex có thể mất con đường, và họ làm những điều hợp lý với một con đường trống rỗng quá.