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

Question

我想从Tcl中的列表中删除子列表.我知道如何使用主列表,lreplace但我不知道如何为子列表.例如:

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

现在我想{4}从内部列表中删除{ {3 4} {4} }.最终的清单应该是:

a { 1 2  { {3 4} } }

请建议如何点他的.

Answer 1

组合lindex以获取内部子列表，lreplace删除提取的内部子列表的元素并将lset修改后的子列表放回原位。

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