计算化学公社

标题: 求助TCL中如何对列表中的元素进行加减乘除的计算 [打印本页]

作者
Author: cuicuishark 时间: 2025-2-19 16:06
标题: 求助TCL中如何对列表中的元素进行加减乘除的计算
如题，例如我得到一个列表{3 5 9 12 17 ……}，里面元素数量很多，我希望对里面的所有元素除以3然后向下取整，得到{1 1 3 4 5 ……}，请问我该用什么指令呢

作者
Author: 丁越 时间: 2025-2-19 16:23
foreach i $a {lappend b [expr floor(double($i) / 3)]}
puts $b

作者
Author: cuicuishark 时间: 2025-2-19 16:44

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

问题解决了，非常感谢！

欢迎光临计算化学公社 (http://bbs.keinsci.com/)