tcl - 从 tcl 中的列表中删除子列表

Question

我想从 Tcl 的列表中删除一个子列表。我知道如何使用 lreplace 为主列表做这件事但我不知道如何为子列表执行此操作。
例如:

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

现在我想删除 {4}来自内部列表 { {3 4} {4} } .
最终名单应该是:

{ 1 2 { {3 4} } }

请建议如何点他的。

Answer 1

联合 lindex获取内部子列表，lreplace删除提取的内部子列表的元素和 lset将修改后的子列表放回原处。

但老实说，我觉得你的数据模型有问题。