是否存在lmap的破坏性版本？如何原地修改列表执行lmap？

首先明确：Tcl的列表是不可变值类型，不存在真正意义上的“原地修改”——所有对列表的操作都会生成新的列表对象，所谓“破坏性操作”本质都是将新列表重新赋值给原变量。你当前的写法已经是标准且直接的实现方式，不过还有几种替代写法可以参考：

1. 封装为自定义过程（模拟“原地”操作） #

可以写一个简单的过程，把重新赋值的逻辑封装起来，让调用语法更贴近“直接修改原列表”的感觉：

proc lmap_inplace {varName script} {
    upvar 1 $varName lst
    set lst [lmap x $lst $script]
}

使用示例：

lmap_inplace listy { func1 $x }

注意：这个过程内部依然是生成新列表后覆盖原变量，本质和你当前的写法一致，只是语法上更简洁。

2. 用foreach手动构建新列表 #

如果需要在遍历过程中插入额外逻辑，可以用foreach配合lappend手动生成新列表，再替换原变量：

set temp {}
foreach x $listy {
    lappend temp [func1 $x]
}
set listy $temp

这种写法适合需要在每个元素处理前后添加自定义操作的场景，但Tcl的lmap已经做了内部优化，常规场景下效率和简洁性都不如直接用lmap赋值。

总结 #

你当前的写法：

set listy [lmap x $listy { func1 $x }]

是最简洁、标准的实现方式，推荐优先使用。所有替代方法本质都是生成新列表后覆盖原变量，这是由Tcl的列表模型决定的，不存在真正的“原地修改”列表的lmap操作。

内容的提问来源于stack exchange，提问作者user1134991