- 博客(7)
- 资源 (2)
- 收藏
- 关注
原创 tcl-otcl 脚本:concat(合并两个 list)
concat:合并两个 list。# 合并两个listset a {0 1 2}puts $aset b {k f c}puts $bset ab [concat $a $b] ;# 合并两个 listputs $ab0 1 2k f c0 1 2 k f c
2020-05-09 20:36:50 3775
原创 tcl-otcl 脚本:由父子关系,输出一个层序遍历结果
父子关系:输入: 节点列表 5 8 7 3 2 父节点列表 10 5 5 10 3输出: 层序遍历结构 10 5 3 8 7 2set child {5 8 7 3 2}set father {10 5 5 10 3}set root 10set outOrder {root} ;# 初始...
2020-05-09 20:00:14 169
原创 tcl-otcl 脚本:逆序排列
1、lreverseset Order {1 2 3}puts "Order : {Order}"set reverseOrder ""set reverseOrder [lreverse $reverseOrder]puts "reverseOrder : {$reverseOrder}"Order : {1 2 3}reverseOrder : {3 2 1}2、正序遍历,前插set Order {1 2 3}puts "Order : {Order}"set rev
2020-05-09 19:28:10 679
原创 tcl-otcl 脚本:list(列表)、llength(长度)、lindex(索引)、lsearch(查找)
1、list list:列表。set mylist {1 2 3}puts $mylist1 2 32、llength llength:计算 list 的长度。set mylist {1 2 3}puts $mylistset len [llength $mylist]puts $len1 2 333、lindex lindex:取list 指定索引位置的值,索引范围为:从 0 到 len-1。set myli...
2020-05-09 19:04:17 4248
原创 tcl-otcl 脚本:linsert(插入)
linsert:插入 list 的指定索引位置,前插,从 0 位置开始。(1)插入头部set mylist {1 2 3}puts $mylistset mylist [linsert 0 k]puts $mylist1 2 3k 1 2 3(2)插入尾部set mylist {1 2 3}puts $mylistset mylist [linsert end k]puts $mylist1 2 31 2 3 k(3)插入任意位置set...
2020-05-09 18:47:02 770
原创 tcl-otcl 脚本:lreplace(替换、删除)
lreplace:替换 / 删除 指定 索引位置 / 索引范围 的元素。1、替换(1)替换指定索引范围的元素#---------------------lreplace----------------------puts "----------replace any element----------"set mylist {1 2 3}puts $mylist set mylist [lreplace $mylist 0 1 0] ;# 替换指定索...
2020-05-09 18:17:46 5832
leach+pegasis_ns234.patch
2020-01-16
stm32F407 SPI1/SPI2 DMA 方式读写 CH376S
2019-01-03
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人