求助TCL中如何对列表中的元素进行加减乘除的计算

cuicuishark

如题，例如我得到一个列表{3 5 9 12 17 ……}，里面元素数量很多，我希望对里面的所有元素除以3然后向下取整，得到{1 1 3 4 5 ……}，请问我该用什么指令呢

丁越

foreach i $a {lappend b [expr floor(double($i) / 3)]}
puts $b

cuicuishark

丁越 发表于 2025-2-19 16:23
foreach i $a {lappend b [expr floor(double($i) / 3)]}
puts $b

问题解决了，非常感谢！