语法:tcl语法速查
差别
这里会显示出您选择的修订版和当前版本之间的差别。
| 两侧同时换到之前的修订记录前一修订版后一修订版 | 前一修订版 | ||
| 语法:tcl语法速查 [2025/08/20 13:00] – [7.7 list 嵌套] user01 | 语法:tcl语法速查 [2025/08/28 17:17] (当前版本) – [6.4 产生递进的二进制数] user01 | ||
|---|---|---|---|
| 行 468: | 行 468: | ||
| </ | </ | ||
| + | |||
| + | ==== - 产生递进的二进制数 ==== | ||
| + | |||
| + | <file tcl t3.tcl> | ||
| + | for {set i 0} {$i <16} {incr i} { | ||
| + | set hex_str [format " | ||
| + | puts -nonewline " | ||
| + | |||
| + | puts -nonewline " | ||
| + | for {set j 3} {$j >= 0} {incr j -1} { | ||
| + | set idx [expr 3-$j] | ||
| + | set bit_str [string range $hex_str $idx $idx] | ||
| + | puts -nonewline " | ||
| + | } | ||
| + | puts "" | ||
| + | } | ||
| + | </ | ||
| + | 运行结果： | ||
| + | |||
| + | < | ||
| + | hex_str = 0000 bit[3:0] = 0 0 0 0 | ||
| + | hex_str = 0001 bit[3:0] = 0 0 0 1 | ||
| + | hex_str = 0010 bit[3:0] = 0 0 1 0 | ||
| + | hex_str = 0011 bit[3:0] = 0 0 1 1 | ||
| + | hex_str = 0100 bit[3:0] = 0 1 0 0 | ||
| + | hex_str = 0101 bit[3:0] = 0 1 0 1 | ||
| + | hex_str = 0110 bit[3:0] = 0 1 1 0 | ||
| + | hex_str = 0111 bit[3:0] = 0 1 1 1 | ||
| + | hex_str = 1000 bit[3:0] = 1 0 0 0 | ||
| + | hex_str = 1001 bit[3:0] = 1 0 0 1 | ||
| + | hex_str = 1010 bit[3:0] = 1 0 1 0 | ||
| + | hex_str = 1011 bit[3:0] = 1 0 1 1 | ||
| + | hex_str = 1100 bit[3:0] = 1 1 0 0 | ||
| + | hex_str = 1101 bit[3:0] = 1 1 0 1 | ||
| + | hex_str = 1110 bit[3:0] = 1 1 1 0 | ||
| + | hex_str = 1111 bit[3:0] = 1 1 1 1 | ||
| + | </ | ||
| ==== - com_number set_bits get_bits ==== | ==== - com_number set_bits get_bits ==== | ||
| 行 669: | 行 706: | ||
| % set a [lrange $c 0 0] | % set a [lrange $c 0 0] | ||
| {1 2} | {1 2} | ||
| - | % lindex $a 0 | + | % lindex $a 0; # a只有一个元素，那就是 “1 2”， a已经不是list了。 |
| 1 2 | 1 2 | ||
| </ | </ | ||
语法/tcl语法速查.1755666042.txt.gz · 最后更改: 2025/08/20 13:00 由 user01