计算化学公社

标题: 求助tcl循环变量保存为数组 [打印本页]

---

作者
Author: wangyueda    时间: 2023-1-31 01:02
标题: 求助tcl循环变量保存为数组
请问下各位老师，tcl编程过程中如何将循环变量保存为数组，例如：

1. for {set i 0} {$i<10} {incr i} {
   
2.         if {$i<5} {
   
3.         puts $i}
   
4. }

复制代码

此处满足条件语句的i为0，1，2，3，4。那么如何将这些数存为一个新的数组呢，直接用set array $i貌似不对

---

作者
Author: sobereva    时间: 2023-1-31 02:02
set idx 0
for {set i 0} {$i<10} {incr i} {
if {$i<5} {
set array($idx) $i
incr idx
}
}
parray array

---

作者
Author: wangyueda    时间: 2023-1-31 20:35

sobereva 发表于 2023-1-31 02:02
set idx 0
for {set i 0} {$i

好的 谢谢卢老师

---

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

Powered by Discuz! X3.3