tcl脚本写一个冒泡排序

以下是一个用Tcl编写的冒泡排序脚本：

# 定义要排序的数据
set data {5 2 4 6 1 3}

# 记录数据长度
set n [llength $data]

# 冒泡排序
for {set i 0} {$i < $n-1} {incr i} {
    for {set j 0} {$j < $n-$i-1} {incr j} {
        if {[lindex $data $j] > [lindex $data [expr $j+1]]} {
            # 交换数据
            set temp [lindex $data $j]
            lset data $j [lindex $data [expr $j+1]]
            lset data [expr $j+1] $temp
        }
    }
}

# 输出排序后的结果
puts $data

运行以上脚本，输出结果为：

1 2 3 4 5 6

说明数据已经按照从小到大的顺序排好了。