从tcl列表中删除子列表

Question

我想从Tcl列表中删除子列表。我知道如何使用lreplace做主列表，但我不知道如何为子列表执行此操作。 例如：

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

现在我想从内部列表中删除{ {3 4} {4} }{4}。 最终名单应该是：

a { 1 2 { {3 4} } }

请建议如何点他的。

Answer 1

合并lindex得到内部子列表lreplace删除提取的内部子列表的一个元素和lset以将修改的子列表放回原位。

但是老实说，我对你的数据模型感觉有些问题。

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 
} 

如果你需要变化的深度，你会失去这个代码。你需要递归。

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

由于外部列表永远不会显示在tclsh中。

Answer 3

它需要一些技巧来很好地完成：

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] 

这工作，因为这两个lset和lindex可以采取的路径，和他们做明智的事情有一个空的路径了。